Fişin üzerinde kayıt işlemlerinden önce kontrol edilmesi ve kayıt işlemlerinin engellenmesi için BeforeSave event ını kullanabilirsiniz. Aşağıda bu event ile ilgili örnek bulunmaktadır.

Sub BeforeSave(proceed as Integer)
   GetTextVal("LTextEdit1",StrE)
   if StrE="" then
      warn("Text alan boş geçilemez!!!")
      proceed=0
   end if 
End Sub

 

---

31/10/15 12:49