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

[أغيد]

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

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

EMPLOEES.accdb

[jjafferr]

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

اهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

 

بما انك طالب ، اذن خليني اشرح لك ، وانت تعمل الباقي للحصول على النتيجة ادناه 🙂

.

1. اعمل استعلام خاص للنموذج الذي على اليسار ، ولنحفظه باسم qry_Left ، واجعل هذا مصدر بيانات النموذج الذي على اليسار ،

2. اعمل استعلام خاص للنموذج الذي على اليمين ، ولنحفظه باسم qry_Right ، واجعل هذا مصدر بيانات النموذج الذي على اليمين ،

3. في الاستعلام qry_Right ، في معيار الحقل Employee_Name ، سنكتب (لا يوجد Not In) اننا لا نريد الاسماء من الاستعلام qry_Left ، وهذا هو المعيار:

not in(Select Employee_Name From qry_Left)

4. اغلق كل شيء ، وافتح من جديد ، وسترى النتيجة اعلاه 🙂

 

جعفر

[أغيد]

شكرا لمرورك الكريم .. جاري تنفيذ ذلك وموافاتك بالنتيجة

 

[أغيد]

ماشاء الله عليك نعم المعلم انت ... شكرا جزيلاً لك  هذا المرفق لمن ارد الاستفادة منه 

EMPLOEES.accdb

[أغيد]

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

تم تعديل مارس 5, 2022 بواسطه أغيد

[ابو نزار]

إليك هذا الكود ضعه في مربع التحرير والسرد عند حدث التغيير 

If DCount("*", "qr1") = 0 Then
        
                If MsgBox(لقد تم ترحيل البيانات" & vbNewLine & vbNewLine & "هل تريد حذف بيانات النموذج" _
                , vbQuestion + vbYesNo + vbMsgBoxRight, " تأكيد") = vbYes Then
                         DoCmd.SetWarnings False
                            DoCmd.RunSQL "DELETE qr2.* FROM qr2;"
                         DoCmd.SetWarnings True
                          
                    End If
             End If

 

[jjafferr]

في 6‏/3‏/2022 at 01:56, أغيد said:

1. عندما تكون بيانات الجدول في نموذج اليمن هي نفسها في نموذج اليسار ...

2. هنا  اريد  كود يظهر رسالة تفيذ بانه (تم ترحيل الاسماء )عند الموافقة يتم تصفير بيانات نموذج اليسار

1. هذا الشيء مو ممكن يصير ، لأن طلبك سابقا كان يستثني بيانات النموذج اليسار من اليمين ، فالنموذجين ما يمكن يكون فيها نفس البيانات !!

2. اذا قصدك انه اذا لم توجد بيانات في النموذج اليمين (لأن كلها صارت في النموذج اليسار) ، فهنا تستطيع استعمال الكود الذي اقترحه اخونا @ابو نزار ، طبعا مع مراعاة اسماء الاستعلامات التي استعملها في الكود اعلاه ، لتلائم مسميات برنامجك 🙂

 

جعفر