Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Multi page access
Message
From
08/08/2000 10:07:54
Pierre Richard
Méthotech Canada Limitée
Kirkland, Quebec, Canada
 
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00400755
Message ID:
00402207
Views:
16
Good morning !

Sorry I took so long in answering but between customers and a bit of programming to sort this one out I did not have time to provide some feedback. Special thanks to Fred and Jerry for your analysis that made me think a little farther and come up with this 4 steps solution.

In oForm.PageFrame.Page1.MyControlA.Valid
-test for change in MyControlA <> OldVal(MyControlFieldA)
-if so issue KEYBOARD 'TAB' CLEAR to force the LostFocus event

In oForm.PageFrame.Page1.MyControlA.LostFocus
-test for change in MyControlA <> OldVal(MyControlFieldA)
-if so oForm.PageFrame.ActivePage=2
set all page2.AnyControl.Enabled = .F. except page2.MyControlB
oForm.PageFrame.Page2.MyControlB.SetFocus()

In oForm.PageFrame.Page2.MyControlB.LostFocus
-test for change in MyControlA <> OldVal(MyControlFieldA) ;
AND for nochange in MyControlB = OldVal(MyControlFieldB)
if so This.valid()
oForm.PageFrame.ActivePage=1
oForm.PageFrame.Page1.MyControlA.Value = OldVal(MyControlFieldA)
oForm.PageFrame.Page1.MyControlA.SetFocus()

In oForm.PageFrame.Page2.MyControlB.Valid
-test for change in MyControlA <> OldVal(MyControlFieldA) ;
AND for nochange in MyControlB = OldVal(MyControlFieldB)
if so MESSAGEBOX advising user that since a change wasn't made in MyControlB
we are resetting MyControlA to it's OLDVAL
and returning to oForm.PageFrame.Page1.MyControlA

Tested and working just like I wanted it to work.

Thanks again

Pierre Richard
Previous
Reply
Map
View

Click here to load this message in the networking platform