استفسار بخصوص الصلاحيات

ياريت يكون فيه مثال يوضح المشكلة

الوردية كتب:

مرحبا أخواني الكرام

استفسار بسيط

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

وبعد فترة عدت لأضع الصلاحيات من جديد

ولكن عند تطبيقة تظهر الصفحة الخاصة بالمستخدمين وأقوم بادخال اسم المستخدم والرقم السري الذي تم تحديدة مسبقاً,, ولكن بعد ذلك لا يظهر شي من نافذة قاعدة البيانات التي عملتها مع العلم بأنه قد تم تحديد الفورم الرئيسي قبل عمل الصلاحيات

اتمنى أن أجد الحل لديكم.

.

أختي الفاضلة... تحية طيبة وبعد

سبب المشكلة وضع صلاحيات جديدة ولم تحذفِ الصلاحيات القديمة

لذلك قومي بعمل الاتي

قم بحذف الجداول التالية:

Frm Ability & FRMS & users

في جميع النماذج قومي بحذف الكود التالي :

Private Sub Form_Open(Cancel As Integer)

Dim SF As Control

With MyUser

If .GetAbility(Me.name, OpenForm) Then

Me.AllowAdditions = .GetAbility(Me.name, Add)

Me.AllowEdits = .GetAbility(Me.name, Edit)

Me.AllowDeletions = .GetAbility(Me.name, Del)

For Each SF In Me.Controls

If SF.ControlType = acSubform Then

SF.Form.AllowAdditions = Me.AllowAdditions

SF.Form.AllowEdits = Me.AllowEdits

SF.Form.AllowDeletions = Me.AllowDeletions

End If

Next

Else

MsgBox "ÚÝæÇð " & .UserName & " " & vbCr & vbCr & 

"áíÓ áÏíß 

ÇáÕáÇÍíÉ áÝÊÍ 

åÐÇ ÇáäãæÐÌ", 0 + 16 + 1572864, 

"äÙÇã ÇáÕáÇÍíÇÊ"

Cancel = True

End If

End With

End Sub

ثالثاً : من الوحدة النمطية قومي بحذف التالي :

Cuser & Defs & UserModule

طبعاً كل السابق اذا كنت طبقتي برنامج مهند عبادي لعمل الصلاحيات User Maker

بالتوفيق أختي الكريمة

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

ولكن بعد العودة والعمل عليه مرة أخرى لم يستجب

فقد يكون هذا هو السبب

لذا سيتم العمل على الفورمات والبرنامج وإفادتكم

مع الشكر

محمد فؤاد تركي كتب:

ياريت يكون فيه مثال يوضح المشكلة

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

لك الشكر

kamal alnahhal كتب:

أخي الغالي ... تحية طيبة وبعد

سبب المشكلة وضع صلاحيات جديدة ولم تحذف الصلاحيات القديمة

لذلك قم بعمل الاتي

قم بحذف الجداول التالية:

Frm Ability & FRMS & users

في جميع النماذج قم بحذف الكود التالي :

Private Sub Form_Open(Cancel As Integer)

Dim SF As Control

With MyUser

If .GetAbility(Me.name, OpenForm) Then

Me.AllowAdditions = .GetAbility(Me.name, Add)

Me.AllowEdits = .GetAbility(Me.name, Edit)

Me.AllowDeletions = .GetAbility(Me.name, Del)

For Each SF In Me.Controls

If SF.ControlType = acSubform Then

SF.Form.AllowAdditions = Me.AllowAdditions

SF.Form.AllowEdits = Me.AllowEdits

SF.Form.AllowDeletions = Me.AllowDeletions

End If

Next

Else

MsgBox "ÚÝæÇð " & .UserName & " " & vbCr & vbCr & "áíÓ áÏíß ÇáÕáÇÍíÉ áÝÊÍ åÐÇ ÇáäãæÐÌ", 0 + 16 + 1572864, "äÙÇã ÇáÕáÇÍíÇÊ"

Cancel = True

End If

End With

End Sub

ثالثاً : من الوحدة النمطية قم بحذف التالي :

Cuser & Defs & UserModule

طبعاً كل السابق اذا كنت طبقت برنامج مهند عبادي لعمل الصلاحيات User Maker

بالتوفيق

أخي الكريم I'm Femail

وثانياً: شكراً لك قد يكون بالفعل السبب هو عدم حذفي جيداً لجميع الأكواد الخاص بالبرنامج

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

أختي الفاضلة

بعد التحية ،،،،،،،،،،

أولاً : تأكدي أن الكود تم حذفه من جميع النماذج المعمول لها صلاحيات.

ثانياً : حذف جميع الجداول ذات الصلة بهذا الموضوع.

ثالثاً : حذف جميع الوحدات النمطية ذات الصلة بهذا المنوضوع.

بالتوفيق وتقبلي احتراماتي.

أخ كمال

أشكر لك تعاونك

ولكن تم التأكد من أن الكود تك حذفة من جميع الفورموكذلك جميع الجداول والوحدات النمطية التي لها علاقة ومع ذلك عند إعادة عمل الصلاحيات لم يفلح!!!!

هل توجد طريقة لاستيراد جميع الجداول والفورم لقاعدة جديدة ومن ثم عمل الصلاحيات عليها دون أن يكون من ضمنها برنامج الصلاحيات وخصوصاً الأكواد؟؟؟

بالإضافة لما قدموه الأخوان إذا كانت قاعدة البيانات لم تحول إلى امتداد Mde ففعلي الأتي:

1. أعرضي نموذج الدخول في وضع التصميم
   
2. إذهبي لخصائص زر الدخول ثم حدث عند النقر
   
3. ثم أضغطي بزر كما في الصور
   
   
4. أعرضي النموذج سجلي اسم المستخدم وكلمة المرور ثم أضغطي على زر الدخول ستفتح نافذة الوحدة النمطية مباشرة
   
5. عندها أضغطي على مفتاح F8من لوحة المفاتيح ضغطة تلو الأخرى سيتنقل بك البرنامج على أسطر الكود
   
6. تابعي وشاهدي ستجدين أين الخلل بالضبط ولو تمررين الماوس على المتغيرات والثوابت ستظهر لك القيم
   

وإذا لم تنحل المشكلة أعملي مثال سربع وإذا لم ينجح معك أرفعيه هنا لنرى السبب

الأخوة الكرام

آدم ، مصلح

لكم الشكر جاري العمل حسب ماذكرتم وإفادتكم