autodial

[FrankC]

I'm not sure if this is the right discussion group.
I have a database application that uses Autodial from a form.
It's not working. It skips 2 digits in the number when it tries to dial.
I would like to reinstall it (autodial) but don't know how. Is it part of
Access or Windows or what? I'm using Office 2003 and Vista.

Any advise on how to reload it or fix it?

Thanks
Frank

 

[Arvin Meyer [MVP]]

Here's the code that you need. If it's the same, you have a different
problem:

Private Sub cmdDial_Click()
On Error GoTo Err_cmdDial_Click

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

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

Application.Run "utility.wlib_AutoDial", stDialStr

Exit_cmdDial_Click:
Exit Sub

Err_cmdDial_Click:
If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err =
ERR_CANTMOVE) Then
Resume Next
End If
MsgBox Err.Description
Resume Exit_cmdDial_Click

End Sub

 

[FrankC]

Thanks Arvin,
I check the code and it's the same. When I hit the dial button, the number
comes up correctly in the 'Autodialer' window but gets messed up when it goes
to the 'Dialing' window. I'm going to reload Office and see if that works.

Frank