Hi
Instead of checking (IF USER_LEVEL <> "SHIPPING") in WHEN event of the commandbutton,put the code in INIT of form and disable if condtion doesn't/does
meet.
*----
INIT of form
*-----
IF USER_LEVEL <> "SHIPPING"
Thisform.cmdhistory.enabled = .F. (or .T. as per your login)
ENDIF
DODEFAULT() is used to execute the parent class event/method from within a subclass.
Bye
Jayesh
>Hi Jayesh,
>
>At first i want to want thankx for your help.
>
>I have any other question.
>
>As the status in my first program, i will coding something into WHEN EVENT of HISTORY Button as below:
>
>IF USER_LEVEL <> "SHIPPING"
>LOCAL locurrobj
>IF TYPE('Thisform.activecontrol') = 'O'
>locurrobj = Thisform.activecontrol
>locurrobj.SetFocus()
>RETURN
>ENDIF
>.....
>.....
>
>Do i have another easy way to do same thing ( it is because, this time i no need to run something )
>What is the function of DODEFAULT()
>
>Can i code as below:
>IF USER_LEVEL <> "SHIPPING"
>=DODEFAULT()
>RETURN
>ENDIF
- Jayesh