Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: HarryS am 25.03.03 - 21:02:56
-
hallo,
bin gerade dabei, eine adressmaske mir zu basteln.
erst beim abspeichern des dokumentes soll abgeprüft werden, ob bestimmte felder ausgefüllt wurden. wenn nein, soll eine Meldung erscheinen und in die Felder, die nicht ausgefüllt wurden, soll einen "*" in rot gesetzt werden.
hiermit möchte ich umgehen, dass wie bei der eingabevalidierung für jedes nicht ausgefüllte feld eine messagebox kommt. es soll lediglich eine meldung erscheinen, die darauf hinweist, dass das dokument erst gespeichert werden kann, wenn die felder mit den roten "*" ausgefüllt sind.
hier mein nicht funktionierender erstversuch:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If ( source.FieldGetText( "nachname" ) = "ss") Then
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim uidoc As NotesuiDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = source.document
Dim richText As Variant ' NotesRichTextItem
Set richText = doc.GetFirstItem("nachname")
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
richStyle.NotesColor = COLOR_RED
Call richtext.AppendStyle(richStyle)
Call richtext.AppendText("HALLO ")
continue = False
End If
End Sub
danke für eure mithilfe im voraus
grüßle harry
-
Ich benutze immer ganz gerne dies hier http://www.eknori.de/downloads/EMPB.zip
Damit bist du flexibel, da du bei Wegfall von feldern oder neuen Feldern einfach nur das Config Document für die Validierung anpassen mußt.
Schaue dir bitte ALLE Designelemente an; vor allen die Ereignisse in der Maske.
-
Ich benutze immer ganz gerne dies hier http://www.eknori.de/downloads/EMPB.zip
"... Error 404 - Not Found..."
:(