سطح دسترسی User Level

نمونه ای از سطح دسترسی 

     ()Private Sub Form_Load
    Dim sPermit As String
    Dim iAccess As Integer
    Dim Ctl As Access.Control
   ("Me.txtUser = Environ("username
If IsNothing(Me.txtUser) The
"sPermit = "ReadOnly
    Else
                     "sPermit = "ReadOnly
        Select Case sPermit
        (sPermit = GetPermission(Me.txtUser
                                     End If
                 iAccess = 3
                             "Case "Edit
                              iAccess = 2
                             "Case "Admin
    Me.txtLevel = iAccess
                                 Case Else
                               iAccess = 1
                                   End Sub
                                End Select


  ()Private Sub Form_Load
If Forms!frmMenu!txtLevel < 11 Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub
 
(Private Function GetPermission(sUser As String
_  & "'= If (IsNothing(DLookup("Permissions", "tblStaff", "Login
Forms!frmmenu!txtUser & "'"))) Then
       "GetPermission = "ReadOnly
 Else
  _ & "'=GetPermission = DLookup("Permissions","tblStaff","Login
"'" & Forms!frmmenu!txtUser         
End if
End Function


نمونه ی تصویری 
http://www.iaccessworld.com/create-security-level-in-access/