طريقة اضافة زر لمنع بعض المستخدمين الدخول الى قاعدة البيانات

[بلال اليامين]

السلام عليكم 

اريد اضافة ازر لغلق بعض المستخدمين الدخول قاعدة البيانات

وهذا عند اختيار مفعل يسمح له بالدخول

وعند اختيار غير مفعل لايمسح له بالدخول

و اريد اضافة  هذا التعديل على النموذج اسمه frm_AddUser 

واريد عند الدخول البرنامج تظهر بجانب اسمه مفعل باللون الاخضر    وغير مفعل باللون الاحمر 

الصلاحيات (2).rar

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

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

الصلاحيات (2).rar

تحياتي

[بلال اليامين]

اخي محمد بارك الله فيك اخي

اخي لقد حاولت فتح الدخول ولم اسيطع 

هل ممكن شرح غلق وقفل 

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

تم اضافة حقل chk في tbl_User

ثم في نموذج تسجيل الدخول frm-UserLogon تم اضافة الكود التالي

    If Me.chk = False Then
    MsgBox "غير مسموح بالدخول"
    Exit Sub
    Else


Y = DLookup("[user_pass]", "QUSERS", "[user_name]= '" & Me.user & "' and [City] ='" & Me.City & "'")
If Trim(Me.pass) = Trim(Y) Then
DoCmd.SetWarnings False
    DoCmd.OpenQuery "q_fbi", acNormal, acEdit
    DoCmd.SetWarnings True
'    DoCmd.Close acForm, "1 frm-UserLogon"
forms![1 frm-UserLogon].Visible = False
'Me.Visible = False

      DoCmd.OpenForm "لوحة القيادة"

    
    
Else
MsgBox " اسم المنطقة أو اسم المستخدم او كلمة السر  غير صحيح ،،، يرجى إعادة المحاولة ", vbOKOnly + vbMsgBoxRight + vbInformation, "تحذير !"
Me.trycount = Me.trycount + 1
End If
End If

وفي نموذج frm-Addadmin تم اضافة زر chk للالسماح او عدم السماح

 

تحياتي

[بلال اليامين]

اخي عند لم يفتح لبيرنامج الدخول

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

منذ ساعه, بلال اليامين said:

اخي عند لم يفتح لبيرنامج الدخول

ممكن توضيح المشكلة بالضبط او عرض صورة للمشكلة

الصلاحيات المستخدمين (1) (2).accdb

تحياتي

[بلال اليامين]

المشكلة طريقة فتح الدخول

وعند اضافة مستخدم جديد لم اتمكن من الدخول

تم تعديل يوليو 24, 2020 بواسطه بلال اليامين

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

قم بتعديل الكود الى التالي

yyy = DLookup("[chk]", "[QUSERS]", "[user_pass] ='" & Me.user & "'")
    If yyy = False Then
    MsgBox "غير مسموح بالدخول"
    Exit Sub
    Else

الصلاحيات (2).rar

تحياتي