تعديل الحدث عند الفتح أو أين الخطأ

[أبوبسمله]

السلام عليكم

اخى ابوبهاء طيب مجرد اقتراح

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

تقبل تحياتى وبالتوفيق

[AboBahaa]

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

[ابو جودي]

طيب دى فكرة تانيه

 

test2 (2) (3).mdb

[AboBahaa]

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

بجد بجد تحياتي لك استاذي الكريم للمرة المليون 

[jjafferr]

السلام عليكم شباب 🙂

ابو بهاء مو علوم وخبر 🙂

 

خلونا ننسى طلب ابو بهاء ، ونشوف عمل النموذج التالي:

1. عندي جدول ،

2.1. عملت استعلام 1 لهذا الجدول qry_1 ، لأدخال البيانات ،

2.2. عملت استعلام 2 لهذا الجدول qry_2 ، للبحث ، بحيث يكون هناك معيار/معايير لحقول البحث ، وهذه المعايير تشير الى حقول النموذج ، مثل (Forms!frm_1!ID) 

3. عملت نموذج يأخذ بياناته من هذه الاستعلامات ، حسب صلاحيات المستخدم:

أ.1. للمستخدم العادي ، نفتح النموذج بالطريقة العادية: docmd.openform "frm_1"

أ.2. لمستخدمي البحث ، نفتح النموذج للقراءة فقط: docmd.OpenForm "frm_1",,,,acFormReadOnly

ب. ممكن اعمل سجل جديد ، بدون مشاكل ، بإستخدام qry_1

ج. علشان البحث ، استخدم qry_2

د. اعمل على حدث فتح النموذج ، الكود التالي:

if user_Group=1 then
	me.recordsource=qry_1

elseif user_Group=2 then
	me.recordsource=qry_2

end if

 

اعتقد ممكن استعمال هذه الطريقة لأخونا ابو بهاء 🙂

 

جعفر

[AboBahaa]

أخي الكريم jjafferr جعفر علوم الخير إن شاء الله 

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

[jjafferr]

بس اقتراحي ما فيه تغيير في النماذج ، وبالعكس المفروض سهل عمله 🙂

جرب اقتراحي في نموذج او اثنين ، وعليه اتخاذك للقرار يكون افضل 🙂

 

جعفر

[kaser906]

17 ساعات مضت, AboBahaa said:

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

المشكلة اشوف الصور تختلف عن المرفق اللي وضعته

عموما طبق الفكرة الي قلت لك عنها

20 ساعات مضت, kaser906 said:

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

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

AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
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

::بالتوفيق::

[AboBahaa]

أخي الكريم kaser906 لم تعمل الطريقة