المساعدة فى تحديد صلاحيات مستخدم ومدير

[أكسس وبس]

اخوانى

فى المرفق نموذج login وجدول TblUsers اريد جعل المستخدمين اثنين فقط

اذا كان مدير  تظهر شاشة نموذج Home بها كل المفاتيح

اذا كان مستخدم تظهر شاشة نموذج Home بها مفتاحين ( تسجيل الاصناف - تسجيل فواتير )

اكرمكم الله

كاشير.rar

[أكسس وبس]

اليوزر : admin

كلمة المرور : 444

[محمد أبوعبدالله]

السلام عليكم

في نموذج login استبدل كالتالي

If pas = DLookup("userpass", "TblUsers", "username ='" & [usr] & "'") Then
'DoCmd.Close
    Me.Visible = False
    DoCmd.OpenForm "Home"
     
Else
    MsgBox "يوجد خطأ في اسم المستخدم او كلمة المرور"
   DoCmd.Close
End If

واضف الكود التالي لنموذج Home

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunMacro "mcrHide"

    If DLookup("username", "TblUsers", "username=forms!login!usr") <> "admin" Then
            Me.أمر15.Visible = False
            Me.أمر6.Visible = False
            Me.أمر5.Visible = False
            Me.usr.Visible = False
        Else
            Me.أمر15.Visible = True
            Me.أمر6.Visible = True
            Me.أمر5.Visible = True
            Me.usr.Visible = True
    End If
End Sub

كاشير.rar

تحياتي

[أكسس وبس]

تسلم جزاك الله خيرا