Hallo,
ich habe in meinem Word-Formular ein einstelliges Nummernfeld. Ich frage ab ob es numerisch ist. Wenn nicht, soll der Cursor im Feld stehen bleiben und die Fehlermeldung aufpoppen.
Ich gebe ein -a- in das Feld und verlasse mit der Tab-Taste das Feld. Es wird die Sub aufgerufen.
Fehlermeldung funktioniert, aber der Cursor springt munter ein Feld weiter. Was habe ich vergessen?
Vielen Dank für einen Tipp :)
Sub PersonalnummerEins()
If Not IsNumeric(ActiveDocument.FormFields("PNREins")) Then
MsgBox "Bitte geben Sie eine Zahl ein!"
End If
End Sub |