عدم اظهار اسماء في سجلات نموذج فرعي بناء على يوجد نفسها في النموذج الرئيسي

[ahmad_mustafa]

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

اخفاء الاسماء في سجلات الفرعي.rar

تم تعديل مارس 19, 2022 بواسطه ahmus

[jjafferr]

وعليكم السلام 🙂

 

في حدث بعد الاختيار من الحقل the_city ، اعمل هذا الكود : 

Private Sub the_city_AfterUpdate()

    Me.Requery
    Me.forme2.Requery
End Sub

.

واما الاستعلام q2 ، فسيصبح :

.

Not In (Select [الرقم_الوظيفي] from q1)

 

جعفر

[ahmad_mustafa]

اشكرك للسرعة في المساعدة واعتذر عن تاخري في الرد 

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

not in select.rar

تم تعديل مارس 20, 2022 بواسطه ahmus

[Eng.Qassim]

لو ترفع الملف على نسخة اقدم

[ahmad_mustafa]

not in select.rar

[jjafferr]

تفضل :

الاستعلام: موظفين_القسم2

SELECT mowadfen.الرقمالوظيفي, mowadfen.يعمللان, mowadfen.الاسم, mowadfen.القسم
FROM mowadfen LEFT JOIN كشف_رواتب_القسم ON mowadfen.الرقمالوظيفي = كشف_رواتب_القسم.الرقمالوظيفي
WHERE (((mowadfen.يعمللان)="يعمل") AND ((mowadfen.القسم)=[Forms]![hodorenseraf1]![درجالقسم]) AND ((IIf([كشف_رواتب_القسم].[الرقمالوظيفي]=[mowadfen].[الرقمالوظيفي],-1,0))=0));

 

جعفر

1492.not in select.accdb.zip

[ahmad_mustafa]

[jjafferr]

لا تجرب القابلة ، جرب الادانة

 

[ahmad_mustafa]

[jjafferr]

في البرنامج الموجود عندك ، افتح التقرير في وضع الثصميم ، وفي اعدادات Order By  ، رجاء تحذف الموجود هناك ، وتحفظ التقرير ، ثم تجربه مرة اخرى.

انا نادرا ما استعمل On Error Resume Next ، وانت ما شاء الله تستعمله في كل حدث!!

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

 

الامر On Error Resume Next لا يجعلك ترى اي خطأ ، بينما في واقع الامر تكون هناك اخطاء ، ولهذا السبب ترى ان البرنامج لا يعمل بطريقة صحيحة ، ولن تعرف السبب.

1492.not in select.accdb.zip

[ahmad_mustafa]