السلام عليكم
الكود التالي استخدمته لغرض تحديد صلاحيات اليوزر والادمن
ولكن اريد ان الغي بعض الصفحات من التعديل مثل (Page371) في الكود الآتي
Option Compare Database
Private Sub Command1_Click()
Dim UserLevel As String
If IsNull(Me.txtUsername) Then
MsgBox "رجاءا ادخل اسم المستخدم", vbInformation, " Username Requierd"
ElseIf IsNull(Me.txtPassword) Then
MsgBox "رجاءا ادخل كلمة السر", vbInformation, " Password Requierd"
Else
If Nz(DLookup("Password", "tblUser", "Username = '" & Me.txtUsername & "'"), "Password") = Me.txtPassword Then
UserLevel = Nz(DLookup("Seclevel", "tblUser", "Username = '" & Me.txtUsername & "'"))
If UserLevel = "Admin" Then
DoCmd.Close
DoCmd.OpenForm "00_Form"
MsgBox "اهلا وسهلا بك في برنامج الموارد البشرية", vbInformation, " Access Allowed"
ElseIf UserLevel = "Editor" Then
DoCmd.Close
DoCmd.OpenForm "00_Form"
Form_00_Form.Page371.Enabled = False
MsgBox "Welcome back, your security level is Editor", vbInformation, " Access Allowed"
ElseIf UserLevel = "User" Then
DoCmd.Close
DoCmd.OpenForm "00_Form"
Form_00_Form.Page371.Enabled = False
Form_00_Form.AllowEdits = False
MsgBox "Welcome back, your security level is User", vbInformation, " Access Allowed"
End If
Else
MsgBox "اسم المستخدم او كلمة السر غير صحيحة", vbExclamation, "Access Denied"
End If
End If
End Sub
ممكن التعديل عليه بحيث الصفحة المطلوبة لا تظهر