AboSaad17 قام بنشر أغسطس 9, 2018 مشاركة قام بنشر أغسطس 9, 2018 السلام عليكم ورحمة الله وبركاته في النموذج مجموعة خيارات الخانة 1 و 2 و 3 تعمل الخانة 4 ( الجميع) هل هناك طريقة لتفعيل هذه الخانة المرفق ابلغ في عرض السؤال chooseAll.mdb 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أغسطس 9, 2018 مشاركة قام بنشر أغسطس 9, 2018 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 1 1 رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 9, 2018 الكاتب مشاركة قام بنشر أغسطس 9, 2018 لله درك استاذ Shivan حفظك الله ولك مني جــــزيــــــــــــل الشــــــــــــــــكر رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 10, 2018 الكاتب مشاركة قام بنشر أغسطس 10, 2018 استاذي الفاضل Shivan عند محاولة تطبيق المثال السابق عن طريق نموذج فرعــي ظهر لي أخطاء كما في الصورة مرفق مثال على ذلك ولك جــــــزيل الشـــكر علــى كل حـــــال chooseAll_2.mdb رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أغسطس 10, 2018 مشاركة قام بنشر أغسطس 10, 2018 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 1 رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 11, 2018 الكاتب مشاركة قام بنشر أغسطس 11, 2018 استاذي الفاضل Shivan (( أتمنى أن تكون هذه الاسئلة مفيده للجميع )) ( فــي المرفق التالي قمت بتغيير مصدر البيانات واصبح ( استعلام وتم إضافة خانة اختيار ونتيجة لذلك لا حظت مايلي أولا _ خانة تحديد سجل غير نشطه ثانيا _ عند تحديد الكل لا تظهر إشارة تنشيط السجلات مرفق مثال على ذلك ولك جــــــزيل الشـــكر علــى كل حـــــال chooseAll_3.mdb رابط هذا التعليق شارك More sharing options...
يوسف مؤذن قام بنشر أغسطس 11, 2018 مشاركة قام بنشر أغسطس 11, 2018 السلام عليكم و رحمة الله و بركاته الخطأ في الحدث بعد التحديث تم إقافه _chooseAll_3.mdb و بالتوفيق رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 11, 2018 الكاتب مشاركة قام بنشر أغسطس 11, 2018 السلام عليكم ورحمة الله اخي الكريم يوسف مؤذن لم أصل الــــى حــــــــل ولا زال السؤال مستمر رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر أغسطس 11, 2018 مشاركة قام بنشر أغسطس 11, 2018 لانك قمت بإضافة حقل جديد (اختيار) لذلك عند الضغط على الخيار لا يظهر مصدره فتصبح غير مفعلة لابد من اضافته في مصدر البيانات â�«chooseAll_3.rar 1 رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 11, 2018 الكاتب مشاركة قام بنشر أغسطس 11, 2018 السلام عليكم ورحمة الله اخي الكريم AlwaZeeR شــــــكرا جــزيلا لك تم ولله الحمــــــد رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 12, 2018 الكاتب مشاركة قام بنشر أغسطس 12, 2018 (معدل) السلام عليكم ورحمة الله AlwaZeeR اخــي الفاضل من ساعة ماقدمت لي الجواب السابق وانا احاول اطبق المثال ولكن دون جدوى ماهو السرررررر ياليت تشرح خطوات الحل ولك جزيل الشـــــــــــــــــكر تم تعديل أغسطس 12, 2018 بواسطه AboSaad17 خطأ إملائي رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر أغسطس 12, 2018 مشاركة قام بنشر أغسطس 12, 2018 حياك الله أبو سعد يوجد كود قام بكتابته لك الأستاذ شيفان موجود تحت حدث بعد التحديث للخيارات الخاصة بك مدير ، وكيل ... الخ. وهو عبارة عن تحديد مكان مصدر البيانات في حال الضغط على خيار من الخيارات 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 رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 12, 2018 الكاتب مشاركة قام بنشر أغسطس 12, 2018 السلام عليكم ورحمة الله AlwaZeeR اخــي الفاضل تم التعديل ولكن لاحظت ( عند فتح النموذج وتحديد الكل مباشرة ( لا يتم تنشيط خانة الاختيار في السجلات يتم ذلك بعد تنشيط المجموعه ؟؟؟ بينما في مثالك السابق يعمل مباشرة سواء تحديد الكل أو تحديد سجل واحد أين الخلل ودمت بعز ولك جــزيل الشــكر مرفق لملاحظة الخلل _chooseAll_4.mdb رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر أغسطس 12, 2018 مشاركة قام بنشر أغسطس 12, 2018 يجب إضافة الحقل ha في الاستعلام الداخلي الخاص بالنموذج الفرعي Qwaz انظر الصورة: رابط هذا التعليق شارك More sharing options...
AboSaad17 قام بنشر أغسطس 12, 2018 الكاتب مشاركة قام بنشر أغسطس 12, 2018 السلام عليكم ورحمة الله AlwaZeeR اخــي الفاضل تم التعديل شــــكرا جــــزيلا لك حفظك الله اينما تكــــــــــــــــون رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.