Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Nodefault & QueryUnload
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01027711
Message ID:
01027723
Views:
11
This message has been marked as the solution to the initial question of the thread.
Here the sequence of execution:
LOCAL llReturn
thisform.lIsClosing = .t.
if type('THISFORM.ActiveControl') = 'O' and not ;
   isnull(thisform.activecontrol) and PEMSTATUS(thisform.activecontrol,'valid',5) ;
   and inlist(lower(thisform.activecontrol.baseclass),'textbox','editbox')
   thisform.activecontrol.valid()
endif

llReturn = .t.
lnReply = This.AskToSave()
IF lnReply = IDCANCEL OR lnReply = IDMUSTKEY
   *-------------------------------------------
   *--- Reset the nGoToPageOnCancel property
   *--- if it has been changed.
   *-------------------------------------------
   IF lnGoToPageOnCancel != 0
      This.nGoToPageOnCancel = lnGoToPageOnCancel
   ENDIF
*** Deny form to be closed.
   NODEFAULT       
   m.llReturn = .f. &&RETURN .F.
****
ENDIF

thisform.lIsClosing = .f.
RETURN m.llReturn
So, I think there is no problem with your code.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform