Hi Friends....,
I've wrote code in my On Load event procedure something like this :
If gintIsAccessLevel = 1 Or 2 = glngCurrentPersonalID Then
DoCmd.OpenForm "frmDeliveryOrderOptions"
Else
If gintIsAccessLevel = 5 = glngCurrentPersonalID Then
MsgBox "Sorry you are visitor only, you don't have any permission for viewing all records.", vbCritical, "Materials Planning & Purchasing Management System"
Exit Sub
DoCmd.Close
End If
End If
but what i need from my event is i need "frmDeliveryOrderOptions" Open when AccessLevel = 1 or 2 but Close form when AccessLevel = 5 and then if Access Level = 5, Msg will appear like above. please tell me if i wrong and teach me how suppose i wrote in my event Procedure.
Your advance assistance must be appreciated.
Best Regards,
Haj1503
I've wrote code in my On Load event procedure something like this :
If gintIsAccessLevel = 1 Or 2 = glngCurrentPersonalID Then
DoCmd.OpenForm "frmDeliveryOrderOptions"
Else
If gintIsAccessLevel = 5 = glngCurrentPersonalID Then
MsgBox "Sorry you are visitor only, you don't have any permission for viewing all records.", vbCritical, "Materials Planning & Purchasing Management System"
Exit Sub
DoCmd.Close
End If
End If
but what i need from my event is i need "frmDeliveryOrderOptions" Open when AccessLevel = 1 or 2 but Close form when AccessLevel = 5 and then if Access Level = 5, Msg will appear like above. please tell me if i wrong and teach me how suppose i wrote in my event Procedure.
Your advance assistance must be appreciated.
Best Regards,
Haj1503