البحث في الموقع

السلام عليكم ورحمة الله تعالى وبركاته كانت حاجتى ملحة فى وضع صلاحيات للمستخدمين للحفاظ على البيانات التى يتم ادخالها وعدم التلاعب بها وذلك لحساسية البيانات المدخلة واصناء البحث وجدت البرنامج الخاص بالاستاذ محمد مهند العبادى بإسم Users Maker قمت بإضافة المعالج الى قاعدة البيانات الخاصة بى وبصراحة حاولت التعديل عليها فقمت بالاتى - جعل المستخدم يقوم باختيار الاسم من كمبوبوكس بدلا من كتابة اسمه كل مرة من خلال تيكست بوكس - بعد التعديلات على النموذج user name وذلك لجعل المستخدم يستطيع تغيير كلمة السر الخاصة به دون الرجوع الى المسئول عن البرنامج - قما قمت بوضع زر يفتح فورم الاذونات للمستخدمين من فورم الدخول ولكن الية العمل تكون كالاتى عند إضافة الصلاحيات من خلال معالج اضافة الصلاحيات لاى قاعدة بيتم الاتى انشاء مستخدم ادمن لقاعدة البياااانات ادراج جدول frm وبيتم وضع كل اسماء النماذج الموجوده بالقاعدة بطريقة الية ادراج جدول Frm Ability ادراج نموذج Users Ability ادراج الجدول Users هناك اكثر من ذلك ولكن ذكرت ما يهمنى ذكره فقط النموذج Users Ability من خلاله يتم من خلاله اولا : انشاء مستخدمين ثانيا : اعطاء التصاريح لكل مستخدم بما يتناسب معه من قبل الادمن ملاحظات هامة جدا جدا جدا عند انشاء مستخدمين من النموذج Users Ability يتم الاتى 1- ادراج سجلات فى الجدول Frm Ability عن طريق الجدول Frm وذلك طبقا لكل النماذج الموجودة بعددها 2-رقم المستخدم SN ومصدره الجدول Users وبهذا بعد انشاء عدد من المستخدمين تتمكن من اعطاء التصاريح اللازمة لكل مستخدم لفتح النموذج او الاضافة او التعديل او الحذف لكل على حده وذلك عن طريق النموذج Users Ability ----------------------------------هذا هو الاصل فى الية المعالج والية عمل قاعدة البيانات بعد معالجتها -------- ما أريد تحقيقه هو الاتى اولا النموذج Users Ability يتم تغيير إسمه مثلا إلى Group Ability وبهذا يتم اعطاء التصاريح اللازمة لمجموعة العمل وليس لكل مستخدم منفردا ثانيا : عند انشاء مستخدم جديد يتم الاتى 1- تحديد اسم الجروب / رقم الجروب الذى نريد اضافة المستخدم له فيدرج فى الجدول Users 2-ادراج سجلات فى الجدول Frm Ability عن طريق الجدول Frm وذلك طبقا لكل النماذج الموجودة بعددها 2-رقم الجروب / اسم الجروب "WG مثلا بدلا من SN" ويكون مصدره الجدول Users فينتج من هذا اعطاء التصاريح لمجموعة العمل وليس للمستخدم برجاء النظر للموديول ففيه اكواد التحكم الخاصة بالتصاريح Cuser Public Function GetAbility(FormName As String, Ability As AbilityType) Dim c As String c = "[" & Choose(Ability, "o", "A", "d", "e") & "]" GetAbility = DLookup(c, "FRM Ability", "FRM = '" & FormName & "' and SN = " & Str(UserNum)) End Function ------------------ Private Function CheckValid() As Boolean On Error GoTo Err CheckValid = False CheckValid = decode(DLookup("[PW]", "Users", "deCode([uname],'User')='" & Trim(UserName) & "'"), "Pass") = Trim(Me.pass) If CheckValid Then LogTime = Now() UserNum = DLookup("[SN]", "Users", "deCode([uname],'User')='" & Trim(UserName) & "'") End If Err: End Function الاستاذ مهند جعل التخصيص من خلال الاسماء عن طريق السيريال نمبر الخاص بكل يوزر ليكون فريد من نوعه امممممم هل يمكن التعديل وتغير sn الى رقم فريد لمجموعة العمل ولتكن wg ؟ ويتم تخصيص رقم لكل مجموعة عمل بإدراج جدول workgroup ويكون فى هذا الجدول مثلا اسماء المجموعات ورقم معرف لكل مجموعه مثلا اسم المجموعه رقم تعريف المجموعه admin 1 2 data entry 3 editor 4 viewer هذا الجزء من الكود فى نموذج user name فى حدث عند الضغط على الزر موافق DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRMDESC) SELECT" & Str(n) & " AS Expr1,FRMS.FRM,FRMDESC FROM FRMS;" على حسب فهمى هو استعلام الحاق عند الضغط على الزر يقوم بالحاق اسماء النماذج ووصفها من الجدول frm وكذلك الـ sn الخاص بالمستخدم الجديد الذى يتم انشائه الى الجدول frm apility وبصراحة عندما سالت عن استعلام الالحاق كنت افكر فى ان اغير هذه الجملة حتى تتم كالاتى الحاق اسماء النماذج ووصفها من الجدول frm وكذلك الحاق رقم مجموعة العمل للمستخدم الجديد بناء على تحديدها من كومبوكس فى النموذج user name الى الجدول frm apility ولكن تتم بنفس الالية التى تتم بها مع الـ sn ارفق قاعدة تم عمل المعالج الخاص بالصلاحيات عليها للاطلاع عليها وان شاء الله لو تم التعديل عليها كما اتمنى سوف اقوم بوضع هذا التعديل على المعالج وان شاء الله يمكننى ذلك تطوير صلاحيات المستخدمين.rar