ضعف في برنامج الصلاحيات

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

لكن اذا كنت تريد ذلك

فاليك هذا التعديل

t.rar

ربي يعطيك العافيه

واشكرك على المساعده

هناك مشكلة وهي انه يقبل الاضافه المتشابها

اي اذا كان هناك مستخدم باسم 2

فانه يقبل ان يضيف مستخدم اخر باسم 2

ومن المفروض بانه لا يقبل اضافة اسم رقم 2 بسبب وجوده مسبقا

هل يوجد حل اخي الكريم

اعتقد اننى عالجت هذه النقطة فى برنامج اضافات الاكسس

بالفعل تم الرجوع الى اضافات الاكسس

وتم ايجاد الاجابه

ولكن ظهرة مشكلة وهي حينما يتم اضغط على زر تعديل لتعديل الباسوورد تظهر الرساله تفيد بان الاسم مكرر

ولكن هناك مشكلة

حينما يتم الضغط على زر تعديل من دون التحديد على مستخدم تظهر هذه الرساله

و حين يتم الضغط على زر حذف من دون التحديد على مستخدم تظهر هذه الرساله

اعتذر على كثرة ملاحظاتي

test.zip

ملاحظاتك صحيحة

و قد تنبهت لها

لكن أجلت التعديلات للنسخة الجديدة

لاضافتها ان شاء الله

عموما جرب هذا التعديل

test.rar

اشكرك اخي الكريم

سوال لكي تزيد معرفتي

ما الفرق بين هذا الكود الذي استخدمه في برنامج الصلاحيات ( الذي تم اقتباسه من احد المشاريع ) الموجود في هذا صرح الكبير

الموجود في زر الحذف

Private Sub bdel_Click()
   DoCmd.RunSQL "DELETE SN FROM [Frm Ability] WHERE (SN= " & Str(UList) & ");"
   DoCmd.RunSQL "Delete SN FROM Users WHERE (SN = " & Str(UList) & ");"
   UList.Requery
   SUBF.Requery
End Sub

و الكود الموجود في اضافات الاكسس الذي تم الدراجه من سموكم الكريم

Private Sub bdel_Click()
   DoCmd.RunSQL "DELETE SN FROM [Frm Ability] WHERE (SN= " & Str(UList) & ");"
   DoCmd.RunSQL "Delete SN FROM Users WHERE (SN = " & Str(UList) & ");"
   UList.Requery
   UList.SetFocus
   UList.Selected(0) = True
   SUBF.Requery
End Sub

الفارق هو ان يكون هناك خيار فى قائمة المستخدمين

حتى لا يحدث الخطأ المشار اليه سابقا

ممكن شرح لهذه الجملة

-------

اقتباس

الفارق هو ان يكون هناك خيار فى قائمة المستخدمين

هل تقصد بان يكون الكود بهذه الطريقه

Private Sub bdel_Click()
   If IsNull(UList) Then MsgBox " ÍÏÏ ãÓÊÎÏã ÃæáÇ ", vbInformation: Exit Sub

   DoCmd.RunSQL "DELETE SN FROM [Frm Ability] WHERE (SN= " & Str(UList) & ");"
   DoCmd.RunSQL "Delete SN FROM Users WHERE (SN = " & Str(UList) & ");"
   UList.Requery
   UList.SetFocus
   UList.Selected(0) = True
   SUBF.Requery
End Sub

اقصد رسالة الخطأ التى اشرت اليها فى المشاركة رقم 5

عند عدم اختيار مستخدم من القائمة

اشكرك

هل من الممكن شرح هذه الجميلة

اقتباس

الفارق هو ان يكون هناك خيار فى قائمة المستخدمين

بسم الله الرحمن الرحيم

اخي الكريم ابو يوسف نشكر لك اهتمامك العظيم بالمنتدى وبالاعضاء

ولكن اخي الكريم لقد حان الوقت للنسخة الجديدة من برنامج صلاحيات المستخدمين

وانا اول المنتظرين

ارجو الا تتاخر علينا اكثر من ذلك فنحن بانتظاره بفروغ فروغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغغ صبر

اشكرك

هل من الممكن شرح هذه الجميلة

اقتباس

الفارق هو ان يكون هناك خيار فى قائمة المستخدمين

اعتذر على الرفع

هل من الممكن شرح هذه الجميلة

اقتباس

الفارق هو ان يكون هناك خيار فى قائمة المستخدمين

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

SetFocus تقوم بجعل العنصر UList هو العنصر النشط الحالي.

Selected(0) = True ستجعل العنصر الأول في القائمة هو الاسم الافتراضي الذي يتم اختياره.

اشكرك على شرح و التوضيح