شوف الله يعزك هذا الكود الي عندي كيف اعدل عليه بدون ما يروح لجدول اليوزر والصلاحيات
Private Sub Command10_Click()
If pass = Password Then
DoCmd.OpenForm "mainform", acNormal
[Forms]![mainform]![usr] = usr
[Forms]![mainform]![userlevel] = userlevel
DoCmd.Close acForm, "loginusers"
If [Forms]![mainform]![userlevel] = "Admin" Then
[Forms]![mainform]!Command177.Enabled = True
[Forms]![mainform]!Command1.Enabled = True
[Forms]![mainform]!Command2.Enabled = True
[Forms]![mainform]!Command0.Enabled = True
End If
If [Forms]![mainform]![userlevel] = "2" Then
[Forms]![mainform]!Command1.Enabled = True
End If
If [Forms]![mainform]![userlevel] = "1" Then
[Forms]![mainform]!Command177.Enabled = True
End If
Else
ms$ = "User Name or Password is incorrect"
ti$ = "Login"
re = MsgBox(ms$, 0, ti$)
End If
End Sub