nach Fehlerbehandlung wieder in Dialogbox zurückkehren

[Bille]

Hi,

der User füllt in einer Dialogbox diverse Felder aus. Nach Drücken des OK-Buttons werden die Feldinhalte auf Plausibilität geprüft.
Wie schaffe ich es, dass bei einem gefundenen Fehler (z. B. das angegebene Datum liegt in der Vergangenheit), der User wieder in die Dialogbox zurückgekehrt?

Momentan sieht mein Code (Ausschnitt) so aus:

Code

Sub Click(Source As Button)
.....
	If Not ws.DialogBox( "DialogTA" , True , True, False, False, False,False, "ANMERKUNGEN", doc , True) Then
		Exit Sub
	End If
	
.....
	If doc.TerminDatum(0) < Today Then
		Msgbox "Das Datum liegt in der Vergangenheit. Bitte ändern!", 48, "Fehler"
		Exit Sub
	End If
.....

Durch das Exit Sub in dem Then-Zweig wird natürlich die komplette Routine verlassen und der User muss erneut alle Felder füllen.
Gibt es eine Möglichkeit, dass ich wieder in die Dialogbox zurückkommen kann?

Bille

[klaussal]

Goto ?

[Bille]

Ach, das war ja einfach!

Danke Klaus!
 

[klaussal]

Gern geschehen !

[Axel]

Gibt es eine Möglichkeit, dass ich wieder in die Dialogbox zurückkommen kann?

Dann ist aber Goto nicht unbedingt der Weisheit letzter Schluss.

Hier wäre es besser die Plausibilitätsprüfung innerhalb der Dialogbox zu machen und diese erst zu schließen, wenn die Prüfung positiv war.

Die Prüfung selbst wird im QueryClose-Event der Dialogbox ausgeführt.

Beispiel:
Solange das Feld Feldname leer ist, kann die Dialogbox nicht geschlossen werden.

Sub Queryclose(Source As NotesUIDocument, Continue As Variant)
  If Source.DialogBoxCanceled Then
    If Source.Document.Feldname(0) = "" Then
      Messagebox "Das Feld Feldname darf nicht leer sein.", 16, "Feldprüfung"
      Continue = False
    End If
  End If   
End Sub

Axel

[Werner Götz]

Sehe ich auch so, es muss aber wohl heissen:
If Not Source.DialogBoxCanceled Then

-Werner

[Axel]

Sehe ich auch so, es muss aber wohl heissen:
If Not Source.DialogBoxCanceled Then

Upps. Werner, du hast natürlich vollkommen recht. Sorry, da war ich zu schnell. Danke für die Korrektur.

Axel

[Bille]

Ja, Ihr habt recht. So ist das natürlich noch besser.
Danke!