Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: livingdive am 05.07.02 - 17:33:34

Titel: Fehlerauswertung !!wichtig!!
Beitrag von: livingdive am 05.07.02 - 17:33:34
servous, zusammen!

hab da noch ein problem. habe bei einer maske die Feldvalidierung benutzt. bei fehlerhafter eingabe wird ein text ausgegeben.habe in der maske einen speicherbutton. beim drücken des selbigen wird die validierung ausgelöst.danach kommt ein befehl zum speichern.
das Problem.die Textausgabe wird direkt am feld gesteuert. wie kann ich dann den fehler an meinem speicherbutton abfragen?
wollte beim feld zum beispiel so etwas eingeben

@if(nummer>1000;@success;@failure("falsche zahl"))

das funzt auch, aber um das ergebnis des testes auf meinem button abzufragen wollte ich dan das benutzen

@if(nummer>1000;@success;@do(@failure("falsche zahl");@environment("fehler";"-1")))

das ging dann aber nicht. der fehlertext erscheint nicht.
bitte um hilfe

livingdive
Titel: Re: Fehlerauswertung !!wichtig!!
Beitrag von: Wipe am 08.07.02 - 16:55:51
Hi livingdive,

Erstelle einen Aktionsbutton "Save & Close" mit folgendem Eintrag

@Command([FileSave]);
@Command([FileCloseWindow])


Im QuerySaveEvent der Maske folgenden Code einfügen.

Sub Querysave(Source As Notesuidocument, Continue As Variant)
     
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim Nr As String
     
     Set db = session.CurrentDatabase
     
     Nr = Source.Fieldgettext("Nummer")
     
     If (Val(Nr) < 1000) Then
           Msgbox "Überprüfen Sie die Nummer ",48,"Fehler: Die Nummer ist zu klein"
           Continue = False
     End If
     
End Sub

Gruss
Bubble

PS: Ich hoffe es hilft Dir weiter - sind meine ersten Gehversuche in LScript und hat im Test gefunzt
Titel: Re: Fehlerauswertung !!wichtig!!
Beitrag von: livingdive am 08.07.02 - 18:35:27
ja! danke. auf die idee hätt ich auch kommen können.ich müh mich hier mit @ formeln ab und hab doch gar nicht an script gedacht, vonwegen dem continue = false .
das hilft mir auf jeden fall.

gruß livingdive