otomatik çevirici

[hgunay]

acceste otomatiik çevirici den aramayı nasıl gerçekleştirebilirim?

 

[attila52]

access de dosya sekmesinden yeni yi seçin gelen menüden şablonlara bakın orada sizin aradığınız özelliğe uygun bir uygulama tasarımı var ona göz atınız

 

[gulsum1]

cevap

Private Sub Çevir_Click()
On Error GoTo Err_Çevir_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'Formun üzerindeki denetim adını yazabilirsiniz Me.[evTel] gibi

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_Çevir_Click:
Exit Sub

Err_Çevir_Click:
If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Then
Resume Next
End If
MsgBox Err.Description
Resume Exit_Çevir_Click
End Sub

 

[hgunay]

DİALER.EXE windows tarafından bulunamıyor diye bi ileti alıyorum.

 

[gulsum1]

cevap

çevirici yüklü değildir modemini kur dialup modemin yoksa bir işe yaramaz windovs telefon çeviricisinin de yüklü olması lazım

 

[hgunay]

tşk ederim
gülsüm hanım