in einem Formular habe ich ein Textfeld "txtOrt".
Ein häufiger Tippfehler, der bei reinen Textfeldern wie zB. Name oder Ort
auftritt, ist die versehentliche Eingabe einer Zahl statt eines Buchstabens.
Dieser Fehler kann mit einer Sub abgefangen werden.
Nun ich komme nicht weiter.Egal, ob ich Zahl oder Buchstaben eintippe
die MsgBox ist immer da !
Private Sub Ort_AfterUpdate()
Dim txtOrt As TextBox ' ?
If Len(Ort) <> IsEmpty(Ort) Or Not IsNumeric(Ort) _ ' ?
Or InStr(Ort, "IsNumeric") Then
MsgBox "Tippfehler !!!." _
& vbCr & vbCr & "Sie haben eine Zahl im Textfeld !", vbCritical, "Tippfehler"
Ort = ""
PLZ.SetFocus
Ort.SetFocus
End If
End Sub
-
marc.