Dial number in Text Box w/o Prompt

[Rod]

Any idea how I can have the following not prompt me for a number and dial
whatever is DIAL_NUMBER (which is a phone number stored as text)?

Private Sub Dial_Number_Click()
On Error GoTo Err_Dial_Number_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", DIALNUMBER
'stDialStr

Exit_Dial_Number_Click:
Exit Sub

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

End Sub

My gut feeling is a lot of this can be removed.

 

[Wayne Morgan]

Does the example in this article help?

http://support.microsoft.com/default.aspx?scid=kb;en-us;837146

 

[Rod]

No. At this point, I have figured out how to give the dialer the number.
All I need it to do now is to stop prompting for confirmation of the number.
It pops up with the number in the input field so the user has to press OK.

 

[Wayne Morgan]

I was hoping the other code would give you an option to send the dial
sequence without using the dialer. Another option would be to send the
needed commands directly to the com port yourself. See if this page from
Tony will help:

http://www.granite.ab.ca/access/serialport.htm