Telephone

[Geir Baardsen]

Hi!
I'm using the wizard in ms access 2000 to do the following:

Private Sub cmdTelephon_Cli ck()
On Error GoTo Err_cmdTelephon _Click

Dim stDialStr As String
Dim PrevCtl As Control
Const ERR_OBJNOTEXIST = 2467
Const ERR_OBJNOTSET = 91

'Have number be brought up in dialerbox
Set PrevCtl = Me!MyTelephon

If TypeOf PrevCtl Is TextBox Then
stDialStr = IIf(VarType(Pre vCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ListBox Then
stDialStr = IIf(VarType(Pre vCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ComboBox Then
stDialStr = IIf(VarType(Pre vCtl) > V_NULL, PrevCtl, "")
Else
stDialStr = ""
End If

Application.Run "utility.wlib_A utoDial", stDialStr

Exit_cmdTelepho n_Click:
Exit Sub

Err_cmdTelephon _Click:
If (Err = ERR_OBJNOTEXIST ) Or (Err = ERR_OBJNOTSET) Then
Resume Next
End If
MsgBox Err.Description
Resume Exit_cmdTelepho n_Click

End Sub

As U understand I can't get connected. Anything I need to do on my computer or...?

A message says that I may be overloaded. Huh?

Appreciate any hint and tips on this :-)