Bonjour, je précise je débute , débute...
j'essaie d'inclure dans une base de données Access une numérotation automatique via modem
mais mon application se lance (modem olitec) mais il ne compose pas la numérotation. je dois inclure une commande AT comme ATDT0123456789<CR> . Comment inclure cette commande et ou, bref je suis perdu dois je avouer. MERCI. Voici le code pour info :
Private Sub Commande4_Click()
On Error GoTo Err_Commande4_Click
Dim stDialStr As String
Dim PrevCtl As Control
Const ERR_OBJNOTEXIST = 2467
Const ERR_OBJNOTSET = 91
Set PrevCtl = Screen.PreviousControl
If TypeOf PrevCtl Is TextBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ListBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ComboBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
Else
stDialStr = ""
End If
Shell "C:\OLIFAXVX\MONITEUR.EXE " & stDialStr, vbMaximizedFocus
Exit_Commande4_Click:
Exit Sub