Hallo zusammen, ich möchte eine Rufnummer an PhonerLite übergeben, bekomme aber die Platzhalten aus dem Textfeld nicht weg? Kann mir bitte jemand helfen? Danke
Private Sub ruf_Click()
Dim F_Telefon_Nr As String
Me.F_Telefon_Nr.SetFocus
On Error Resume Next
DoCmd.RunCommand acCmdCopy
Dim phonerLitePath As String
phonerLitePath = "C:\Program Files (x86)\PhonerLite\PhonerLite.exe"
If Dir(phonerLitePath) <> "" Then
Shell phonerLitePath, vbNormalFocus
Else
Dim response As VbMsgBoxResult
response = MsgBox("PhonerLite wurde nicht gefunden. Stellen Sie sicher, dass der Pfad korrekt ist und das Programm installiert ist.", vbExclamation + vbOKOnly, "Fehler")
If response = vbOK Then
MsgBox "Installationspfad von PhonerLite: " & phonerLitePath, vbInformation + vbOKOnly, "Installationspfad"
End If
End If
End Sub
Hallo,
was sind denn das für Platzhalter ?
In dem oben gezeigten Code wird keine Telefonnummer übergeben.
On Error Resume NextDas sollte vermieden werden. Du erhältst dann keine Fehlermeldung, auch keine sinnvolle.