كود تعطيل قيود المستخدمين في مربع تحرير وسرد

[طاحن]

أعزائي لو سمحتوا همتكم معي

عملت قاعدة بيانات وهي عبارة عن دليل هاتف ولكن أضفت إليها نظام المستخدمين

بإستخدام ملف Users Maker 2

والمشكلة هي أنني عندما أعطي للمستخدم صلاحية الفتح فقط فإن المستخدم لم يتمكن

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

المستخدم قادرا على تغيير أي شيء

وبطبيعة الحال إذا سمحنا للمستخدم أن يضيف فإنه لا يزال لا يستطيع التحرير في مربع

التحرير والسرد ، إلا إذا أعطيناه صلاحية التعديل

وأنا لا أريد أن أعطي جميع المستخدمين الصلاحية بالإضافة والتعديل والحذف!!!!!!

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

أرجو من اخواني مساعدتي في عمل هذا الكود

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

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

[طاحن]

أخواني هي الطريقة مش معقدة ومثال على ذلك

If .GetAbility(Me.Name, OpenForm) Then

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

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

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

'*******************************************

'MsgBox Me.AllowEdits

If Me.AllowEdits = flase Then

مربع_تحرير_وسرد60.SetFocus

'*******************************************

'*******************************************

الإسم.Enabled = False

الرقم_العسكري.Enabled = False

Else

مربع_تحرير_وسرد60.SetFocus

الإسم.Enabled = True

الرقم_العسكري.Enabled = True

'*********************************************

'*********************************************

End If

يعني بامختصر أنا اللي أريده هو بعد then

مثلا

If .GetAbility(Me.Name, OpenForm) Then

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

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

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

'*******************************************

'MsgBox Me.AllowEdits

If Me.AllowEdits = flase Then

مربع_تحرير_وسرد60= خارج المعادلة

'*******************************************

'*******************************************

الإسم.Enabled = False

الرقم_العسكري.Enabled = False

Else

مربع_تحرير_وسرد60.SetFocus

الإسم.Enabled = True

الرقم_العسكري.Enabled = True

'*********************************************

'*********************************************

End If

ساعدونا أخوانا الفاهمين

[التقني]

السلام عليكم

أخي الكريم

ارفاق مثال على ما قمت به أسهل من عرض الأكواد أعلاه بهذه الطريقة

مع ملاحظة أن تحذف جميع البيانات الخاصة من مثالك

وبالتوفيق

[طاحن]

شكرا أخي التقني على إهتمامك وفهامتك

أنا متعشم فيك إنك رايح تلقى لي حل

المهم النموذج في المرفقات

دخول المسئول (1) وكلمة المرور(1)

دخول مستخدم مقيد (2) وكلمة المرور(2)

شوف كيف إن المستخدم غير قادر على التحرير في قائمة البحث

وأتمنى من أخواننا العمالقة الإطلاع

__________.rar