طاحن قام بنشر أغسطس 16, 2006 قام بنشر أغسطس 16, 2006 أعزائي لو سمحتوا همتكم معي عملت قاعدة بيانات وهي عبارة عن دليل هاتف ولكن أضفت إليها نظام المستخدمين بإستخدام ملف 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
طاحن قام بنشر أغسطس 17, 2006 الكاتب قام بنشر أغسطس 17, 2006 أخواني هي الطريقة مش معقدة ومثال على ذلك 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 ساعدونا أخوانا الفاهمين
التقني قام بنشر أغسطس 17, 2006 قام بنشر أغسطس 17, 2006 السلام عليكم أخي الكريم ارفاق مثال على ما قمت به أسهل من عرض الأكواد أعلاه بهذه الطريقة مع ملاحظة أن تحذف جميع البيانات الخاصة من مثالك وبالتوفيق
طاحن قام بنشر أغسطس 18, 2006 الكاتب قام بنشر أغسطس 18, 2006 شكرا أخي التقني على إهتمامك وفهامتك أنا متعشم فيك إنك رايح تلقى لي حل المهم النموذج في المرفقات دخول المسئول (1) وكلمة المرور(1) دخول مستخدم مقيد (2) وكلمة المرور(2) شوف كيف إن المستخدم غير قادر على التحرير في قائمة البحث وأتمنى من أخواننا العمالقة الإطلاع __________.rar
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان