اخفاء ازرار محددة بنموذج اذا كان تسجيل الدخول عن طريق مستخدم عادي وليس admin

[محد عبيد]

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

يسعدني ويشرفني الانضمام الى منتداكم المميز والمتعاون والغني بمعلوماته والثري بأعضاء مميزين متعاونين تزينهم اخلاق عالية وروح تعاونية مثمرة جزاكم الله كل خير

اعكف على تنفيذ برنامج صغير هو حصيلة ما تعلمته من المنتديات كنوع من اشغال الذات بشيء ممتع ومفيد وكانت النتائج مبشرة ووصلت الى معاناة اغلب الموجودين هنا بالمنتدى من حيث صلاحيات المستخدمين وتقييدها

قد تكون الاجابة على تساؤلي سهلة جداً لكنني بعد اسبوع حافل بالتحديات ومتابعة الاكواد وصلت الى طريق مسدود 

1- لدي نموذج واحد وواجهة واحدة ولا يلزمني اكثر من ذلك ببرنامجي 

2- لدي عدد اثنان او اكثر من المستخدمين العاديين 

3- لدي مدير برنامج يشرف على عمليات اضافة مستخدمين جدد او حذفهم او تغيير كلمة المرور الخاصة بهم ولديه حق الولوج الى كامل النموذج والحذف والتحرير بمجرد دخوله باسم admin وستظهر له شاشة النموذج على هذا الشكل المرفق بالصورة

4- بحال تم تسجيل الدخول باسم المستخدمين العاديين يظهر نفس النموذج مع اخفاء الازرار المميزة بالصورة المرفقة

اشكركم جزيل الشكر 

[abouelhassan]

سأكتب لك الكود الذى استخدمه عله يفيدك

Private Sub Form_Load()
DoCmd.Maximize
Me.Main_iDate.SetFocus
If myCheckUser = "modeer" Then
Exit Sub
Else
كل ما هو غير الادمن اكتب بجواره  false 
'DellOll.Visible = False
'Command169.Visible = False
'ÃãÑ171.Visible = False
T1.Visible = False
L1.Visible = False
End If
End Sub

 

[محد عبيد]

ما شاء الله اخونا ابو الحسن الرد سريع والاجابة جاهزة 

جعلها الله في صحائف الاعمال وجزاكم عنا خير الجزاء

[محد عبيد]

الاخ الكريم ابو حسن سامحني 

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

وهذا ما ظهر باول رسالة عندما وضعت الكود على الزر الاول مستخدمين واسم الزر  (btn_user) 

 

 

[Foksh]

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

الاخ الكريم ابو حسن سامحني 

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

وهذا ما ظهر باول رسالة عندما وضعت الكود على الزر الاول مستخدمين واسم الزر  (btn_user) 

 

 

اخي الكريم الخطأ عندك في ازدواجية الوظيفة . لاحظ انك وضعت في حدث الزر حدث عند تحميل النموذج وهذا غير صحيح.