اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ابوخليل

الردود الموصى بها

اخوتي الكرام

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

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

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

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

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

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

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

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

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

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

 

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

 

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

 

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

myUser.rar

  • Like 5
  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

 

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

 

post-127181-0-24254100-1409330079_thumb.

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

كل شيء تمام

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

 

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

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

رابط هذا التعليق
شارك

كل شيء تمام

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

 

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

رابط هذا التعليق
شارك

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

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • 4 months later...
  • 5 months later...
  • 1 month later...

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information