... ich arbeite in der Regel nicht über die Frontend-Klasse, sondern konvertiere das Dokument in das Backend
... um zu prüfen, ob ein Feld leer ist...
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Set docThis = ws.CurrentDocument.Document
If cstr( docThis.Feldname(0) ) = "" Then
'# dann eben entsprechende Schritte einleiten...
End If
... wenn du mehrere Felder hintereinander abprüfen willst, dann würde ich den Weg über ein Array wählen...
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim i As Integer
Dim sField( 0 to 2 ) As String
Dim vWert as Variant
sField( 0 ) = "Feldname_1"
sField( 1 ) = "Feldname_2"
sField( 2 ) = "Feldname_3"
Set docThis = ws.CurrentDocument.Document
For i = 0 to UBound( sField )
If docThis.HasItem( sField( i ) ) Then
vWert = docThis.GetItemValue( sField( i ) )
If IsArray( vwert ) Then
If Cstr( vWert( i ) ) = "" Then
bEmpty = True
End If
Else
If Cstr( vWert ) = "" Then
bEmpty = True
End If
End If
If bEmpty Then
'# ... eben was getan werden soll, zum Beispiel
MsgBox "Das Feld " + sField( i ) " ist leer, geben Sie bitte einen Wert ein"
If ws.CurrentDocument.EditMode Then ws.CurrentDocument.GoToField( sField(i) )
Exit For
End If
End If
Next
... wären so Ansätze...
ata