Hi,
bei sowas muss man mit Script arbeiten!
zum Beispiel sowas
Dim Var1 As Variant
Dim Var2 As Variant
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = uiws.currentdocument
Var1 = Cvar (uidoc.FieldGetText("Kfz_Art"))
Var2 = Cvar (uidoc.FieldgetText("Kennzeichen"))
Kfz_Artleer:
If Var1 = "" Then
Goto FehlerKfzArt
Else
Goto Kennzeichenleer
End If
FehlerKfzArt:
Messagebox "Wählen Sie eine Fahrzeugart aus!" , , "Unvollständige Eingabe"
Goto Nichtspeichern
Kennzeichen:
If Var2 = "" Then
Goto FehlerKennzeichen
Else
Goto Speichern
End If
FehlerKennzeichen:
Messagebox "Geben Sie das Kennzeichen des Fahrzeugs an!" , , "Unvollständige Eingabe"
Goto Nichtspeichern
Speichern:
Call uidoc.save
Call uidoc.close
Goto Ende
Nichtspeichern:
Messagebox "Dokument wurde aufgrund von Fehlenden eingaben nicht Gespeichert!" , , "Speicherfehler"
Print "Dokument wurde aufgrund von Fehlenden eingaben nicht Gespeichert!"
Ende:
Um eine Nachricht zu senden in der Designerhilfe mal nach der Klasse Send suchen
Ich hoffe ich konnte helfen!
Stephan