bellen d.m.v. VB code

[mjbrugmans]

Hallo,

Ik heb het volgende probleem:

Ik heb in mijn access formulier een knop gemaakt waarmee je via de windialer het telefoonnummer kunt bellen wat in een tekstvak staat. Dit is een standaard optie in access alleen kun je geen 0 voor een buitenlijn erbij laten kiezen. Weet iemand hoe je dit kan instellen of moet je dit in je VB code aanpassen. Hieronder de code:

Private Sub Opbellen_Click()
On Error GoTo Err_Opbellen_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 = "0"
End If

Application.Run "utility.wlib_AutoDial", strDialStr

Exit_Opbellen_Click:
Exit Sub

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

 

[Bartuls]

Daar geeft Microsoft zelf een oplossing voor:

http://support.microsoft.com/defaul...port/kb/articles/Q148/8/57.asp&NoWebContent=1

En nog een tweede oplossing:
http://support.microsoft.com/defaul...port/kb/articles/Q141/6/25.ASP&NoWebContent=1

 

[mjbrugmans]

opgelost.

bedankt,
Mathijs:thumb: