|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Member
Iscritto dal: Jun 2002
Messaggi: 50
|
Comporre numero telefonico
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.
__________________
Athlon 1400MHz - RAM 512Mb - HD 40Gb - Sk Video TNT 32Mb - Creative Live 5.1 - Lettore DVD LG 16x/48x - Masterizzatore Yamaha 20x/10x/40x - Pinnacle Studio Deluxe - Monitor 19" LG - Scanner Nortek A4 - Stampante Laser Samsung ML1210 |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Codice che mi ha generato l'autocomposizione di Access
![]() Codice:
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 |
![]() |
![]() |
![]() |
#3 |
Member
Iscritto dal: Jun 2002
Messaggi: 50
|
Grazie!
Lo provo subito.
__________________
Athlon 1400MHz - RAM 512Mb - HD 40Gb - Sk Video TNT 32Mb - Creative Live 5.1 - Lettore DVD LG 16x/48x - Masterizzatore Yamaha 20x/10x/40x - Pinnacle Studio Deluxe - Monitor 19" LG - Scanner Nortek A4 - Stampante Laser Samsung ML1210 |
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 15:11.