صلاحيات المستخدمين والعمل ضمن نموذج واحد

[ابوخليل]

اخوتي الكرام

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

العنوان ينطق بالمعنى

كيف يعمل مستخدمون كثيرون ضمن نموذج واحد ولكن كل حسب صلاحيته

وتطبيقه على ارض الواقع في البرنامج المدرسي

حيث يتسنى لكل معلم ادخال درجات طلابه  لا يشاركه في ذلك احد الا المسؤول عن البرنامج

وهو جزء من درس احببت افراده 

ارفقت مثال بسيط عبارة عن جدولين ونموذجين

يشتمل على 13 معلما  ومسؤول واحد

كلمات المرور للمعلمين تبدأ من 101 وحتى 113

وكلمة مرور المسؤول = 222

 

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

 

لللاستزادة ورؤية التطبيق من هنا http://www.officena.net/ib/index.php?showtopic=55142&page=4#entry350160

 

آمل ان تجدوا الفائدة 

myUser.rar

[علي المصري]

شكرا استاذ ابو خليل

جزاك الله خيرا

[ليلى الهلالي]

جزيت عنا الخير الكثير.

 

إما أن هناك مشكلة في جهازي أو أنني لم أعرف كيف أتعامل مع البرنامج. الصورة التالية تظهر بعد إدخال كلمة مرور المسئول أو المستخدم. أرجو مساعدتي.

 

وما فائدة العد التنازلي للمستخدم أو المسئول هل هي لحماية المستند من الاقتحام؟

 

تم تعديل أغسطس 29, 2014 بواسطه ليلى الهلالي

[ابوخليل]

كل شيء تمام

اسم المستخدم الذي سجل دخوله يظهر على الاطار الازرق

 

اما العد التنازلي فهو من ابتكار الاستاذ علي المصري وكنت شريكه  في التنفيذ

والعداد لم اضفه ابتداء بل كان موجود ضمناً ، ويمكن الاستغناء عنه وايقافه

[ليلى الهلالي]

كل شيء تمام

اسم المستخدم الذي سجل دخوله يظهر على الاطار الازرق.

 

المعنى انه الآن لن يظهر أي شيء إلا بعد ربطه مع قاعدة البيانات فقط.

[حاملة المسك]

جزاك الله خيرا استاذنا الرائع

خطوة رائعة جدا بارك الله فيك

[حاملة المسك]

السلام عليكم 

ممكن اعرف كيف اصل لصفحة الكود المسئول عن عمل خطوة الصلاحيات 

[ابوخليل]

هذا هو الكود المسؤول

Option Compare Database
Dim Stest As Byte
Private Sub sOK_Click()
Dim i As Boolean
Dim x As String
i = Nz(DLookup("pass", "tblUsers", "pass = forms!frmsecurity!text2"))
x = Nz(DLookup("UserId", "tblUsers", "pass = Forms!frmsecurity!text2"))
If i = True Then
If Stest = 1 Then
myuser = x
DoCmd.Close
DoCmd.OpenForm "frmDrjat", acNormal
Else
myuser = ""
DoCmd.Close
DoCmd.OpenForm "frmDrjat", acNormal
End If
Else
MsgBox "كلمة المرور غير صحيحة فضلاً تأكد وحاول مجدداً"
Text2 = Null
End If
End Sub

علما ان myuser  هو متغير نصي تم الاعلان عنه  في وحدة نمطية عامة

و Stest متغير رقمي يمثل اول رقمين من كلمة المرور

وطريقة الوصول الى الكود  هو عند تشغيل المثال :

نضغط   على shift  وفي نفس الوقت ننقر على البرنامج فيفتح على التصميم

نفتح نموذج frmsecurity على التصميم ثم ننقر  Alt+F11

[rohaem]

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

سلمت يداك وعقلك موضوع ممتاز جداً وكنت ابحث عنه

شكرا وجزاك الله خيرا

[khodor1985]

السلام عليكم إخواني الأعزاء ورحمة الله وبركاته

أرجو ان يفيد كم هذا الشرح الفيديوهات

[احمد2222]

إلى الأمااااااااااااااااااام دوماً 

نفع الله بكم الأمة ودمتم جميعاً  

[تعليموه]

شكرا استاذنا ابوخليل ... وجزاك الله كل خير ... دائماً مبدع بسم الله ما شاء الله

[eng-Hussam]

موضوع رائع

[أم خلود]

اكثر من رائع .................