Wenn das Formular mit Speichern & Schließen beendet wird, möchte man ggf. die eingegebenen Daten noch validieren. Dazu kann das Event OnFormValidate verwendet werden.

function OnFormValidate

 set Meldung = GSVars("Meldung").AsODBObject

 if (cbStatus.GetItemText(cbStatus.ItemIndex) = "Umgesetzt") then

   if ceUmgesetztInVersion.Text = "" then

     GSForm.FormValidationErrorTxt = """Umgesetzt in Version"" ist

                                         nicht gesetzt!"

       OnFormValidate = false

       exit function

     end if

   end if

 end if

 OnFormValidate = true

end function

Durch das Setzen von OnFormValidate = false wir verhindert, dass das Formular geschlossen wird. GSForm.FormValidationErrorTxt gibt für den Anwender eine entsprechende Meldung aus.