تحديد صلاحية الدخول

[TQTHAMI]

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

لدي نموذج صلاحيات ابي اذا دخلت باسم ادمن يفتح لي نموذج frm2 واذا دخلت باسم اخر يفتخ نموذج frm1

مرفق مثال

مثال.accdb

[kanory]

منذ ساعه, TQTHAMI said:

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

لدي نموذج صلاحيات ابي اذا دخلت باسم ادمن يفتح لي نموذج frm2 واذا دخلت باسم اخر يفتخ نموذج frm1

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

الحقيقة لم افهم الية عمل الصلاحيات لديك .... لكن جرب هذا ربما هو ما تريد ....

 

مثال (3).accdb

[TQTHAMI]

يسعد لي مساءك

هذا الكود

If Me.a.Column(1) = "admin" Then
DoCmd.Close acForm, "FrmSign"
DoCmd.OpenForm "frm2"
Else
DoCmd.Close acForm, "FrmSign"
DoCmd.OpenForm "frm1"
End If

والله جربته اكثر من مره لكن خطائ كان في موضعه 

الف شكر لك اخي وبارك الله فيك

[Moosak]

قام أخي @kanory بالواجب جزاه الله خيرا 🙂 

ولكن لدي ملاحظتين :

1- أعتقد أنه من الخطأ الاعتماد على اسم المستخدم لمعرفة إن كان هو المشرف أو مستخدم عادي .. فلو تم تغيير الاسم في الجدول لن يعمل معك الكود .. وأقترح أن تضيف حقل جديد من نوع (نعم/لا) يكون اسمه IsAdmin مثلا .. وعليه تبني الكود .

2- ما أجمل الكود عندما يكون مرتب بطريقة سهلة القراءة .. أولا سترتاح أنت في كتابته وتعديله والرجوع إليه .. وثانيا ستريح من يأتي بعدك لتعديله وفهمه لاحقا 🙂 .. لاحظ الفرق الآن بعد أن كان مكدسا كله على جهة اليسار 🙂  :

3- والثالثة مجانية من عندي 😎 غير اسم حقل الاسم إلى UserName مثلا .. لأن كلمة Name وحدها محجوزة للأكسس..

[TQTHAMI]

هلا وغلا اح موسى

يسعد لي مساءك بالخير 

كبر السن يجيب الزهايمر 

فهمت عليك ولا فهمت تقدر تطبق مثال على ما ذكرت

او انزل واجهة الصلاحية عندي لتتطلع عليها وتعمل ما تراه مناسب لأني والله استفيد منكم جميعا وغيري كثير  وانتم لا تشعرون 

تحياتي لكم جميعا

[Moosak]

ومسائك سعيد أخي @TQTHAMI 🙂 

أضفت لك الحقل IsAdmin في الجدول  وهذه الأسطر في الكود :

Dim IsAdmin As Boolean
....
....
IsAdmin = DLookup("IsAdmin", "users", "[id] =" & Forms![FrmSign]!a)
....
....
....
....
            If IsAdmin = True Then
                DoCmd.OpenForm "frm2"
            Else
                 DoCmd.OpenForm "frm1"
            End If
....
....

 

مثال (2).accdb