Mark Thank you. I did its working fine but after the message(you do not have access.) when i am clicking the ok i am getting a program error. but the form is not getting opened which is good but how can i eliminate the program error.

the code is as follows:

IF mViewType='NOACCESS'
=MESSAGEBOX("You do not have access to this Module.",48)
RETURN .F.
ENDIF

there is nothing after the end if.

Thank you.