مشكلة في كود vb الخاص بشاشة الصلاحيات

[زياد الحسناوي]

السلام عليكم 

الكود التالي استخدمته لغرض تحديد صلاحيات اليوزر والادمن

 

ولكن اريد  ان الغي بعض الصفحات من التعديل مثل (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

ممكن التعديل عليه بحيث الصفحة المطلوبة لا تظهر

تم تعديل نوفمبر 9, 2018 بواسطه zYo

[Shivan Rekany]

عطينا نسخة مصغرة من المرفق نعطيك الحلول