تفعيل خانة اختيار في مجموعة خيار

[AboSaad17]

السلام عليكم ورحمة الله وبركاته 
في  النموذج مجموعة خيارات 
الخانة 1 و 2 و 3 تعمل 
الخانة 4 ( الجميع) هل هناك طريقة لتفعيل هذه الخانة 
المرفق ابلغ في عرض السؤال
 

chooseAll.mdb

[Shivan Rekany]

2 ساعات مضت, AboSaad17 said:

في  النموذج مجموعة خيارات 
الخانة 1 و 2 و 3 تعمل 
الخانة 4 ( الجميع) هل هناك طريقة لتفعيل هذه الخانة 
المرفق ابلغ في عرض السؤال

اتفضل استخدم هذا

Private Sub choo_AfterUpdate()
    If Me.choo.Value = 0 Then
        Me.RecordSource = "SELECT Tab1.name1, Tab1.wazefa FROM Tab1"
    Else
        Me.RecordSource = "SELECT Tab1.name1, Tab1.wazefa FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![Qwaz]![choo])) WITH OWNERACCESS OPTION;"
    End If
        DoCmd.Requery
End Sub

 

chooseAll.mdb

[AboSaad17]

لله درك استاذ Shivan

حفظك الله ولك مني جــــزيــــــــــــل الشــــــــــــــــكر

[AboSaad17]

     استاذي الفاضل  Shivan

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

مرفق  مثال على ذلك 
ولك جــــــزيل الشـــكر علــى كل حـــــال

 

chooseAll_2.mdb

[Shivan Rekany]

11 ساعات مضت, AboSaad17 said:

عند محاولة تطبيق المثال السابق عن طريق نموذج فرعــي ظهر لي أخطاء 

يجب ان تتحكم بمصدر النموذج الداخلي بدل نموذج الرئيسي
اي فقط غير من 
 

Me.RecordSource

الى

Me.Qwaz.Form.RecordSource

اي غير الكود الى هذا لانك اضفت حقل اخر جديد
 

Private Sub choo_AfterUpdate()
    If Me.choo.Value = 0 Then
        Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 "
    Else
        Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![manag]![choo])) WITH OWNERACCESS OPTION;"
    End If
        DoCmd.Requery
End Sub

اليك مثالك بعد تعديل

 

chooseAll_2.mdb

[AboSaad17]

     استاذي الفاضل  Shivan

 ((  أتمنى أن تكون هذه الاسئلة مفيده للجميع )) 

 ( فــي المرفق التالي قمت بتغيير مصدر البيانات واصبح (  استعلام 

وتم إضافة خانة اختيار 

ونتيجة لذلك 
لا حظت مايلي 
أولا _ خانة تحديد سجل غير نشطه 
ثانيا _ عند تحديد الكل لا تظهر إشارة تنشيط السجلات  

مرفق  مثال على ذلك 

ولك جــــــزيل الشـــكر علــى كل حـــــال

‫chooseAll_3.mdb

[يوسف مؤذن]

السلام عليكم و رحمة الله و بركاته

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

 

تم إقافه 

_chooseAll_3.mdb

و بالتوفيق

 

 

[AboSaad17]

السلام عليكم ورحمة الله 
اخي الكريم يوسف مؤذن

لم أصل الــــى حــــــــل 

ولا زال السؤال مستمر 

[AlwaZeeR]

لانك قمت بإضافة حقل جديد (اختيار) لذلك عند الضغط على الخيار لا يظهر مصدره فتصبح غير مفعلة

لابد من اضافته في مصدر البيانات

 

 

�chooseAll_3.rar

[AboSaad17]

السلام عليكم ورحمة الله 
اخي الكريم  AlwaZeeR

شــــــكرا جــزيلا لك 
تم ولله الحمــــــد

[AboSaad17]

السلام عليكم ورحمة الله 

 AlwaZeeR  اخــي الفاضل 

من ساعة ماقدمت لي الجواب السابق وانا احاول اطبق المثال 
ولكن دون جدوى 
ماهو السرررررر 

ياليت تشرح خطوات الحل 

ولك جزيل الشـــــــــــــــــكر

تم تعديل أغسطس 12, 2018 بواسطه AboSaad17
خطأ إملائي

[AlwaZeeR]

حياك الله أبو سعد

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

مدير ، وكيل ... الخ.

وهو عبارة عن تحديد مكان مصدر البيانات في حال الضغط على خيار من الخيارات

Private Sub choo_AfterUpdate()
    If Me.choo.Value = 0 Then
        Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 "
    Else
        Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![manag]![choo])) WITH OWNERACCESS OPTION;"
    End If
        DoCmd.Requery
End Sub

هذا هو الكود قبل إضافة الحقل الذي زدته انت وهو (ha)

الان الكود هو نفسه مع إضافة الحقل السابق فيصبح كما يلي:

Private Sub choo_AfterUpdate()
    If Me.choo.Value = 0 Then
        Me.Qwaz.Form.RecordSource = "SELECT QQwaz.name1, QQwaz.wazefa, QQwaz.salary,QQwaz.ha FROM QQwaz "
    Else
        Me.Qwaz.Form.RecordSource = "SELECT QQwaz.name1, QQwaz.wazefa, QQwaz.salary,QQwaz.ha FROM QQwaz WHERE (((QQwaz.wazefa) = [Forms]![manag]![choo])) WITH OWNERACCESS OPTION;"
    End If
        DoCmd.Requery
End Sub

لاحظ الفرق:

QQwaz.ha

 

 

 

 

[AboSaad17]

السلام عليكم ورحمة الله    AlwaZeeR  اخــي الفاضل

تم التعديل ولكن لاحظت 
  ( عند فتح النموذج وتحديد الكل مباشرة (  لا يتم تنشيط خانة الاختيار في السجلات

يتم ذلك بعد تنشيط المجموعه ؟؟؟ 
بينما في مثالك السابق يعمل مباشرة سواء تحديد الكل أو تحديد سجل واحد 
 أين الخلل 
ودمت بعز ولك جــزيل الشــكر

مرفق لملاحظة الخلل
 

_chooseAll_4.mdb

[AlwaZeeR]

يجب إضافة الحقل  ha في الاستعلام الداخلي الخاص بالنموذج الفرعي Qwaz

انظر الصورة:

 

 

 

 

[AboSaad17]

السلام عليكم ورحمة الله    AlwaZeeR  اخــي الفاضل

تم التعديل

شــــكرا جــــزيلا لك 
حفظك الله اينما تكــــــــــــــــون