Telefonwahl mit acCmdAutoDial

Private Sub btnAnwTelNr_Click()
On Error GoTo Er

txtTelNr.SetFocus
DoCmd.RunCommand acCmdAutoDial

Ex: Exit Sub
Er: MsgBox "Fehler " & Err.Number & " in btnAnwTelNr_Click" & vbCrLf & Err.Description
Resume Ex
End Sub