Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
If uidoc.Document.Field1 (0) <> "blabla" Then
Messagebox "Sie müssen hier 'blabla' eingeben !"
Call uidoc.GotoField ("Field1")
End If
End SubIch selbst finde es bei einer grossen Zah lvon Feldern aber auch besser, u.U. sofort auf eine Fehleingabe hingewiesen zu werden, als dass erst ganz zum Schluss die ganzen Fehlermeldungen aufpoppen.Das ist bei der Standard - Inputvalidiation genau 1 Meldung (und nicht mehrere), nämlich für das 1. Feld (oben links), bei dem die Validation = False ist.
Das ist bei der Standard - Inputvalidiation genau 1 Meldung (und nicht mehrere), nämlich für das 1. Feld (oben links), bei dem die Validation = False ist.