*فورم* : مثال علي تحديد الصلاحيات عن طريق الكود

مثال

http://www14.brinkster.com/mtarafa/forms/auth.zip

Dim x As Byte, Y As String
x = DLookup("[USER]", "TableName")
Y = DLookup("[USER NAME]", "QUSERS", "[USER]=" & x)
If x = 0 Or x = 1 Then GoTo ESCVALID
MsgBox Y + " Does not Have Access to Edit or Add to  this Data ", 48, "Authorization Warning Message"
Cancel = True
SendKeys "{ESC}"
Exit Sub
ESCVALID:

DoCmd.Close
DoCmd.OpenForm "NeForm"