Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion AutoWaehlerStarten()
Access-Autowähler mit Übergabe einer Telefonnummer starten
Public Function AutoWaehlerStarten(xTNum As Variant)

'--------------------------------------------------------
' Access-Autowähler mit Übergabe einer Telefonnummer
' starten
'--------------------------------------------------------

On Error GoTo fehler

Dim stDialStr As String
Dim PrevCtl As Control

    If IsNull(xTNum) Or xTNum = "" Then
        Set PrevCtl = Screen.PreviousControl
        stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
        stDialStr = xTNum
    End If
    Application.Run "utility.wlib_AutoDial", stDialStr

ende:
    Exit Function

fehler:
    If Err = 2467 Or Err = 91 Or Err = 2483 Then
        Resume Next
    End If
    MsgBox Err.Description
    Resume ende

End Function

Alle anzeigen




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de