Comporre numero telefonico

[Emre]

Salve a tutti.
Espongo il mio problema (sperando in un aiuto!).

Devo fare in modo che da una maschera di MSACCESS (versione 2002) alla pressione di un pulsante venga composto un numero telefonico dal modem. Questo numero è inserito dall'utente in una casella di testo prima della pressione del pulsante.


Come posso fare?
Esiste un software o qualche routine che mi consente di ottenere questo risultato?
Si può fare con la connessione telefonica di windows (il problema è passare dei parametri in modo che il numero venga automaticamente composto)?

Grazie a quanti mi aiuteranno.

[matpez]

Codice che mi ha generato l'autocomposizione di Access :)


Private Sub Componi_numero_Click()
On Error GoTo Err_Componi_numero_Click

Dim strDialStr As String
Dim ctlPrevCtl As Control
Const ERR_OBJNOTEXIST = 2467
Const ERR_OBJNOTSET = 91

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Set ctlPrevCtl = Screen.PreviousControl

If TypeOf ctlPrevCtl Is TextBox Then
strDialStr = IIf(VarType(ctlPrevCtl) > V_NULL, ctlPrevCtl, "")
ElseIf TypeOf ctlPrevCtl Is ListBox Then
strDialStr = IIf(VarType(ctlPrevCtl) > V_NULL, ctlPrevCtl, "")
ElseIf TypeOf ctlPrevCtl Is ComboBox Then
strDialStr = IIf(VarType(ctlPrevCtl) > V_NULL, ctlPrevCtl, "")
Else
strDialStr = ""
End If

Application.Run "utility.wlib_AutoDial", strDialStr

Exit_Componi_numero_Click:
Exit Sub

Err_Componi_numero_Click:
If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Then
Resume Next
End If
MsgBox Err.Description
Resume Exit_Componi_numero_Click
End Sub

[Emre]

Grazie!
Lo provo subito.