• 0
Khodor1985

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

سؤال

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

تحية إلى الإخوة الأعضاء لا سيما المشرفين على هذا المنتدى الكريم

في القريب العاجل سأقدم لكم برنامج نظام المستخدمين مع الشرح بالصور

لذا أرجو من الإخوة المشرفين السماح لي في تقديم هذه الفكرة وأعتقد أنها ستعالج الكثير من الهواجس الأوهام لدى الكثير من الأعضاء، مع الإشارة إلى أن الهدف من هذا العرض هو تقديم المنفعة والإفادة للإخوة المشاركين الكرام.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

42 إجابة على هذا السؤال .

  • 0

بارك الله فيك وجزاك الله خير 

 

ونحن بانتظار ابداعاتك على احر من الجمر

 

 

وفقك الله ورعاك ونفع بك 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم وبه نستعين وعليه نتوكل وهوخير متوكل ومعين وصل الله على رسوله محمد وعلى آله الطيبين الطاهرين وعلى أصحابه الأخيار الخلص المنتجبين.

أما بعد....

الإخوة المشرفين القيمين على هذا المنتدى القيم الذي يستحق التحية والإجلال والإحترام، الإخوة الأعضاء المشاركين والمبدعين ...

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

سأحاول في هذه المشاركة الأولى وسوف يليها إن شاء الله مشاركات أخرى مناطة بهذا الموضوع (برنامج نظام المستخدمين)، ولن أسميها الدرس الأول لأنني في الحقيقة لا زلت تلميذا يافع السن في هذا العالم الكبير والواسع، لأن هناك الكثير الكثير من الأعضاء الكرام الذين يتفوقون علي في هذا المجال. لذا أرجوا من الإخوة أن يقبلوا مني هذه الفكرة لعلها تكشف النقاب عن أفكار أخرى لدى الإخوة قد تسهم في إغناء وإثراء هذا الموضوع.

في البداية، أطلب من الإخوة المشاركين المهتمين إحضار قلم وورقة وتدوين ما سيلي لتحقيق الإستفادة، لأن ما سنتطرق إليه حقيقة يحتاج إلى دقة وتركيز وتمعن.

أنا بانتظاركم إخواني.......

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تصميم البرنامج:

- جدول المستخدمين UsersT

- واجهة المستخدم Login

- إنشاء ثمانية نماذج نسميها Form1 to Form8

- الواجهة الرئيسية Interface

 

1- جدول المستخدمين:

نضع بداخله الحقول التالية:

- ID (الرقم ويجب أن يكون ترقيم تلقائي)

- UserName (إسم المستخدم ويجب أن يكون نص)

- Password (كلمة السر ويجب أن تكون نص)

- Description (نوع المستخدم ويجب أن يكون خانة إختيار)

- Form1 (نموذج1 ويجب أن يكون خانة إختيار)

- Form2 (نموذج2 ويجب أن يكون خانة إختيار)

- Form3 (نموذج3 ويجب أن يكون خانة إختيار)

- Form4 (نموذج4 ويجب أن يكون خانة إختيار)

- Form5 (نموذج5 ويجب أن يكون خانة إختيار)

- Form6 (نموذج6 ويجب أن يكون خانة إختيار)

- Form7 (نموذج7 ويجب أن يكون خانة إختيار)

- Form8 (نموذج8 ويجب أن يكون خانة إختيار)

- Add (إضافة ويجب أن يكون خانة إختيار)

- Edit (تعديل ويجب أن يكون خانة إختيار)

- Delete (حذف ويجب أن يكون خانة إختيار)

 

وهذا الصورة التي سأرفقها ستوضح ما ذكرناه أعلاه

post-275979-0-85042300-1375401600_thumb.

جدول المستخدمين

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله بك اخي الكريم  : خضر

 

متابعين معاك الموضوع  

 

الله يعينك ويوفقك لما فيه الخير

 

هناك ملاحظة : لماذا لا يوجد خانة اختنيار اضافية  وهي للعرض  View ( سواء لعرض النموذج المطلوب من عدمه اسوة بخانة الإضافة والتعديل والحذف )

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا أستاذتي العزيزة أم عهود على مشاركتك واهتمامك وأتمنى منك المساعدة في هذا المشروع ولا تبخلي علينا بملاحظاتك القيمة.

أما بالنسبة للملاحظة فقد وضعت النماذج الثمانية محل ال View.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وفقك الله ورعاك

ويسر لك امرك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم والحمد لله رب العالمين والصلاة والسلام على أشرف خلق الله والمرسلين سيدنا محمد وعلى آله الطيبين الطاهرين وعلى أصحابه الأخيار الخلص المنتجبين.

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

 

المشاركة الثانية:

- إنشاء ثمانية نماذج ونسميها على الشكل التالي:

- Form1

- Form2

- Form3

- Form4

- Form5

- Form6

- Form7

- Form8

ثم نضع في كل Form ثلاثة أوامر وهي:

- Add (إضافة) نسميها في تبويب (غير ذلك) في ورقة الخصائص (cmdAdd)

- Edit (تعديل) نسميها في تبويب (غير ذلك) في ورقة الخصائص (cmdEdit)

- Delete (حذف) نسميها في تبويب (غير ذلك) في ورقة الخصائص (cmdDelete)

ثم ننشئ أيضا في كل فورم 3 خانات إختيار (CheckBox) التالية:

- التسمية 1 : Add نسميها في تبويب (غير ذلك) في ورقة الخصائص (chkAdd)

- التسيمة 2 : Edit نسميها في تبويب (غير ذلك) في ورقة الخصائص (chkEdit)

- التسمية 3 : Delete نسميها في تبويب (غير ذلك) في ورقة الخصائص (chkDelete)

طبعا أقصد بالتسمية 1,2,3  الـ Label لخانة الإختيار.

 

وهذه صورة مرفقة توضح لكم ما أشرت إليه أعلاه:

post-275979-0-23240300-1375475517_thumb.

هذه صورة عن تصميم أحد النماذج

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المشاركة الثالثة:

قم بإنشاء نموذج جديد بعنوان InterFace (الواجهة الرئيسية) وضع فيه ثمانية أزرار وسمها:

الزر الأول : Form1 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command1)

الزر الثاني : Form2 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command2)

الزر الثالث : Form3 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command3)

الزر الرابع : Form4 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command4)

الزر الخامس : Form5 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command5)

الزر السادس :Form6 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command6)

الزر السابع : Form7 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command7)

الزر الثامن : Form8 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command8)

 

بعد ذلك قم بإنشاء مربعي نص:

مربع النص الأول : التسمية : User والإسم: txtUser

مربع التص الثاني : التسمية : Description والإسم : txtDesc

 

ثم قم بإنشاء 8 خانات إختيار:

خانة الإختيار الأولى : التسمية : Form1 والإسم : chkForm1

خانة الإختيار الثانية: التسمية : Form2 والإسم :chkForm2

خانة الإختيار الثالثة: التسمية : Form3 والإسم : chkForm3

خانة الإختيار الرابعة: التسمية : Form4 والإسم : chkForm4

خانة الإختيار الخامسة: التسمية : Form5 والإسم : chkForm5

خانة الإختيار السادسة: التسمية : Form6 والإسم : chkForm6

خانة الإختيار السابعة: التسمية : Form7 والإسم : chkForm7

خانة الإختيار الثامنة: التسمية : Form8 والإسم : chkForm8

 

وهكذا نكون قد انتهينا من تصميم الواجهة الرئيسية (InterFace)

سأرفق لكم صورة لتوضيح المشهد

post-275979-0-82626500-1375484737_thumb.

هذه صورة الواجهة الرئيسية 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

منتظرينك يا برنس

ربنا يسدد خطاك

تم عمل المطلوب ومنتظرين باقي الدرس

تم تعديل بواسطه mahmoud_20
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله خير

 

متابع ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

احببت ان ارفق الخطوات السابق شرحها من اخي خضير

حتي اوفر علي الاعضاء متابعي المشاركة الجدد عناء التجهيز

وسنتابع الجديد والي الامام

نموذج صلاحيات.rar

اخوكم ----------- محمود المصري

تم تعديل بواسطه mahmoud_20
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

فكرة جميلة وعمل اجمل 

 

سلامي لك اخ خضر والى جميع الاعضاء

 

مثل هكذا موضوع يكون فيه ثراء بالعلم لجميع الاعضاء 

وتقديم الملاحظات والاراء والاسئلة والمتابعة هي احسن وسيلة للتفاعل

 

متابعة جميلة من الاخت زهرة

متابعة جميلة من الاخ محمود المصري

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على أشرف خلق الله والمرسلين سيدنا محمد وعلى آله الطيبين الطاهرين وعلى أصحابه الأخيار الخلص المنتجبين.

إخواني المشرفين على هذا المنتدى القيم، الإخوة الأعضاء المهتمين والمبدعين،

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

أنا أشكرك جميع الأعضاء الذين يتابعون هذه المشاركات وأقول لهم أنني أغبطهم على هذا الإهتمام النبيل الذي حقيقة يشجع الفرد على إعطاء الكثير والإندفاع نحو الأمام.

 

المشاركة الثالثة:

تصميم واجهة المستخدم Login:

قم بإنشاء مربع نص غير منضم عدد 3 وزر أمر عدد 2  وهي على الشكل الآتي:
- مربع النص الأول : التسمية : User والإسم : txtUser
- مربع النص الثاني : التسمية : Password والإسم : txtPass
- مربع النص الثالث : التسمية : Description والإسم : txtDesc
- زر الأمر الأول : التسمية : Yes والإسم : cmdYes
- زر الأمر الثاني : التسمية : No والإسم : cmdNo
 
ثم قم بإنشاء نفس خانات الإختيار التي وضعناها في الواجهة الرئيسية ولكن زد عليها 3 خانات إختيار وهي :
- خانة الإختيار الأولى : التسمية : Add والإسم : chkAdd
- خانة الإختيار الثانية : التسمية :Edit والإسم : chkEdit
- خانة الإختيار الثالثة : التسمية Delete والإٍسم : chkDelete
 
وهكذا نكون قد انتهينا من تصميم واجهة المستخدم
post-275979-0-98841600-1375574136_thumb.
هذه الصورة تعبر عن واجهة المستخدم
بالتوفيق
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أحسنت أخي العزيز محمود المصري فقد اطلعت على مرفقك،

شكرا على اهتمامك.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بعد أن انتهينا من تصميم المشروع، سنبدأ أولا في وضع أكواد الـ VBA في نموذج Login وهو واجهة المستخدم.

نضع في تبويب بعد التحديث لمربع النص txtUser الكود التالي:

On Error Resume Next
txtDesc = DLookup("Description", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm1 = DLookup("Form1", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm2 = DLookup("Form2", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm3 = DLookup("Form3", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm4 = DLookup("Form4", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm5 = DLookup("Form5", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm6 = DLookup("Form6", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm7 = DLookup("Form7", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm8 = DLookup("Form8", "UsersT", "UserName = '" & Me.txtUser & "'")
chkAdd = DLookup("Add", "UsersT", "UserName = '" & Me.txtUser & "'")
chkEdit = DLookup("Edit", "UsersT", "UserName = '" & Me.txtUser & "'")
chkDelete = DLookup("Delete", "UsersT", "UserName = '" & Me.txtUser & "'")
 
لاحظ أننا استخدمنا في هذا الكود الدالة DLookup والهدف منها هو استرجاع القيم الموجودة في جدول UsersT من خلال مربع النص txtUser
وهذا شرح صوري يوضح المشهد بصورة أفضل:
post-275979-0-17576200-1375579363_thumb. الخطوة الأولى
post-275979-0-31578300-1375579423_thumb. الخطوة الثانية
post-275979-0-18549500-1375579467_thumb. الخطوة الثالثة
بالتوفيق
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الخطوة الثانية في نفس النموذج InterFace واجهة المستخدم سنحدد أيضا الإجراء التالي:

نضع الكود التالي في تبويب عند الضغط OnClick لزر الأمر cmdYes:

On Error Resume NextIf IsNull(Me.txtUser.Value) ThenMsgBox "Please insert UserName", vbCritical, "Caution"Exit SubEnd IfIf IsNull(Me.txtPass.Value) ThenMsgBox "Please insert Password", vbCritical, "Caution"Exit SubEnd IfIf IsNull(Me.txtUser.Value) And IsNull(Me.txtPass.Value) ThenMsgBox "Please insert UserName and Password", vbCritical, "Caution"Exit SubEnd IfIf Me.txtPass.Value = DLookup("Password", "UsersT", "UserName = '" & Me.txtUser.Value & "'") ThenID = Me.txtUserDoCmd.OpenForm "Interface"Exit SubEnd IfValue1 = Me.txtUserDim ii = DLookup("UserName", "UsersT", "Password = '" & Me.txtPass & "'")If Not (IsNull(i)) ThenMsgBox "The userName is wrong", vbCritical, "Caution"Me.txtUser.BackColor = RGB(217, 181, 189)Exit SubEnd IfValue2 = Me.txtPassDim mm = DLookup("Password", "UsersT", "UserName = '" & Me.txtUser & "'")If Not (IsNull(m)) ThenMsgBox "The Password is wrong", vbCritical, "Caution"Me.txtPass.BackColor = RGB(217, 181, 189)Exit SubEnd IfValue3 = Me.txtUserValue4 = Me.txtPassDim xDim yx = DLookup("UserName", "UsersT", "Password = '" & Me.txtPass & "'") And y = DLookup("Password", "UsersT", "UserName = '" & Me.txtUser & "'")If Not (IsNull(x And y)) ThenMsgBox "The UserName and Password are wrong"Exit SubEnd IfEnd Sub

وهذه الصور ستوضح المشهد

post-275979-0-61532600-1375580027_thumb.

وبهذا نكون قد انتهينا من تحديد الإجراءات لواجهة المستخدم

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

 

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المشاركة الرابعة:

تنفيذ جملة من الإجراءات في الواجهة الرئيسية InterFace:

نضع الكود التالي في تبويب البيانات / مصدر عنصر التحكم لمربع النص txtUser:

=[Forms]![Login]![txtUser]

ونضع أيضا في مربع النص txtDesc:

=[Forms]![Login]![txtDesc]

قد يسأل البعض من أين جئت بهذا التعبير؟

الجواب على السؤال:

أريد من txtUser الموجود في الواجهة الرئيسية Interface أن يحاكي txtUSer الموجود في واجهة المستخدم Login، بمعنى آخر أريد من txtUser الموجود في النموذج الواجهة الرئيسية أن يكون مساويا للقيمة الموجودة في txtUser  الموجود في نموذج واجهة المستخدم. فعندما أضع إسم المستخدم ونوع المستخدم في واجهة المستخدم ثم أضغط على زر نعم ستظهر نفس القيمة في نموذج الواجهة الرئيسية.

أرجو أن أكون قد أوصلت الفكرة.

 

ثم نسحب هذا المثال على كافة خانات الإختيار الموجودة في نموذج الواجهة الرئيسية.

سأضع جملة من الصور لتوضيح المشهد

post-275979-0-22646000-1375586146_thumb.

النموذج المرجع في منشئ التعبير لمربعات النصوص وخانات الإختيار.

post-275979-0-85431700-1375586211_thumb. الخطوة الأولى

post-275979-0-76645600-1375586298_thumb. الخطوة الثانية

post-275979-0-29769500-1375586331_thumb. الخطوة الثالثة

post-275979-0-99601400-1375586371_thumb. الخطوة

 

أتمنى أن أكون قد أوصلت الفكرة، وأي إستفسار فأنا بالخدمة إن شاء الله

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

بعد أن انتهينا من تصميم المشروع، سنبدأ أولا في وضع أكواد الـ VBA في نموذج Login وهو واجهة المستخدم.

نضع في تبويب بعد التحديث لمربع النص txtUser الكود التالي:

On Error Resume NexttxtDesc = DLookup("Description", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm1 = DLookup("Form1", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm2 = DLookup("Form2", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm3 = DLookup("Form3", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm4 = DLookup("Form4", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm5 = DLookup("Form5", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm6 = DLookup("Form6", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm7 = DLookup("Form7", "UsersT", "UserName = '" & Me.txtUser & "'")chkForm8 = DLookup("Form8", "UsersT", "UserName = '" & Me.txtUser & "'")chkAdd = DLookup("Add", "UsersT", "UserName = '" & Me.txtUser & "'")chkEdit = DLookup("Edit", "UsersT", "UserName = '" & Me.txtUser & "'")chkDelete = DLookup("Delete", "UsersT", "UserName = '" & Me.txtUser & "'")
لاحظ أننا استخدمنا في هذا الكود الدالة DLookup والهدف منها هو استرجاع القيم الموجودة في جدول UsersT من خلال مربع النص txtUser
وهذا شرح صوري يوضح المشهد بصورة أفضل:
attachicon.gif1.jpg الخطوة الأولى
attachicon.gif2.jpg الخطوة الثانية
attachicon.gif3.jpg الخطوة الثالثة
بالتوفيق

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

سنتابع بحثنا إن شاء الله ولكن بعد أن يقوم الإخوة الكرام بتطبيق ما سلف ذكره، لذا أنا بانتظار ردودكم إخواني، وأي إستفسار فأنا إن شاء الله بالخدمة.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرفق اخر خطوة وقفنا عليها

يتابع

نموذج صلاحيات2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طبعا هذا التعقيب ليس له علاقة بالواجهة الرئيسية وإنما بواجهة المستخدم، وقد وضعته لتوضيح الكود فقط.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بعد أن قمنا بتحديد الإجراءات لمربعات النصوص وخانات الإختيار في نموذج الواجهة الرئيسية InterFace، سنضع الإجراء الأخير في هذه الواجهة هو على الشكل الآتي:

نضع في تبويب الحدث / في الحالي OnCurrent للنموذج الكود التالي وهو:

If Me.chkForm1.Value = False ThenMe.Command0.Enabled = FalseEnd IfIf Me.chkForm2.Value = False ThenMe.Command1.Enabled = FalseEnd IfIf Me.chkForm3.Value = False ThenMe.Command2.Enabled = FalseEnd IfIf Me.chkForm4.Value = False ThenMe.Command3.Enabled = FalseEnd IfIf Me.chkForm5.Value = False ThenMe.Command4.Enabled = FalseEnd IfIf Me.chkForm6.Value = False ThenMe.Command5.Enabled = FalseEnd IfIf Me.chkForm7.Value = False ThenMe.Command6.Enabled = FalseEnd IfIf Me.chkForm8.Value = False ThenMe.Command7.Enabled = FalseEnd If

وبهذا نكون قد انتهينا من الواجهة الرئيسية في برنامج نظام المستخدمين، بحيث يبقى لدينا فقط معالجة النماذج الباقية من 1 إلى 8.

وسنأتي على ذلك بعد تطبيق الإخوة الكرام لهذه المشاركة.

وهذه صورة توضح المشهد

post-275979-0-43525800-1375611456_thumb.

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على أشرف خلق الله والمرسلين سيدنا محمد وعلى آله الطيبين الطاهرين وعلى أصحابه الأخيار الخلص المنتجبين.

يقول الرجل العادل : "ليس العلم بالتعلم إنما العالم نور يقذفه الله في قلب من يشاء من عباده الصالحين".

ويقول أيضا: "العلم يزكو على الإنفاق".

كما أحيي الأستاذة القديرة الأخت زهرة "أم عهود" وهي حقيقة أم الجميع في هذا المنتدى، مع علمي أنها تراقب عن كثب هذه الفكر.

 

المشاركة الخامسة والأخيرة:

سنضع جملة من الإجراءات في أحد النماذج الثمانية وهو Form1 ثم نسحب نفس الإجراءات على كافة النماذج المتبقية:

طبعا هذه الإجراءات تستهدف 3 خانات إختيار وهي:

خانة الإختيار الأولى نضع فيها التعبير التالي في منشئ التعبير:

=[Forms]![Login]![chkAdd]

خانة الإختيار الثانية chkEdit نضع فيعا التعبير التالي:

=[Forms]![Login]![chkEdit]

خانة الإختيار الثالثة chkDelete نضع فيها التعبير التالي:

=[Forms]![Login]![chkDelete]

ثم نضع في تبويب الحدث / في الحالي onCurrent الكود التالي:

On Error Resume NextIf Me.chkAdd.Value = False ThenMe.cmdAdd.Enabled = FalseEnd IfIf Me.chkEdit.Value = False ThenMe.cmdEdit.Enabled = FalseEnd IfIf Me.chkDelete.Value = False ThenMe.cmdDelete.Enabled = FalseEnd IfEnd Sub

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

تبصرة: 

جدول التحكم في صلاحيات المستخدمين هو UsersT.

بالتوفيق إخواني الأعزاء، ولا تنسونا من الدعاء.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أتمنى أن أكون قد قدمت ما يفيد الإخوة الأعزاء.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .