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

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
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.accessmvp.com
http://www.mvps.org/access


"FrankC" <(E-Mail Removed)> wrote in message
news:58AFAC23-CD70-4987-B639-(E-Mail Removed)...
> 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

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

"Arvin Meyer [MVP]" wrote:

> 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
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.accessmvp.com
> http://www.mvps.org/access
>
>
> "FrankC" <(E-Mail Removed)> wrote in message
> news:58AFAC23-CD70-4987-B639-(E-Mail Removed)...
> > 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
>
>
> .
>