وضع علامة إذا تشابه حقل معين بجدولين مختلفين

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

هذا المثال الخاص بك بعد التعديل

إن كان ليس هذا ما طلبته تماماً أخبرني بذلك

بتوفيق الله ..

New Microsoft Office Access Application.zip

شكرا اخي الكريم علي ردك ولكني لم اجد في المثال المرفق ما اريده حيث اني اريد لو ان جدول refund يوجد به حقل قيمته 2222 وعند فتح نموذج Form1 وكتابة 2222 يتم وضع علامة صح تلقائياً داخل مريع ( يوجد عميل سابق قام بإنهاء تعاقده ) .

ولو أن جدول termination يوجد به حقل قيمته 5060 وعند فتح نموذج Form1 وكتابة 5060 يتم وضع علامة صح تلقائياً داخل مريع ( يوجد عميل سابق إسترد مبلغ تعاقده )

من الممكن أخي القيام بذلك عبر الكود التالي في النموذج:

Private Sub chkRefundTermination()
    Me.Check0.Value = Not IsNull(DLookup("CRN", "إنهاء تعاقد", "CRN = '" & Me.CRN & "'"))
    Me.Check2.Value = Not IsNull(DLookup("CRN", "إسترداد مبلغ", "CRN = '" & Me.CRN & "'"))
End Sub

Private Sub CRN_AfterUpdate()
    chkRefundTermination
End Sub

Private Sub Form_Current()
    chkRefundTermination
End Sub

كما في الملف المرفق...

في هذا الكود، نحن نستعلم عن سجل في كلا الجدولين، بشرط أن يكون حقل CRN في الجدول يساوي الرقم في السجل الحالي. يتم الاستعلام عبر الدالة DLookup.

وضعنا الفحص في إجراء لكي نتمكن من استخدامه من أكثر من حدث: واحد عند كتابة رقم CRN جديد (أو تعديل واحد قديم)، والآخر عند الانتقال إلى سجل جديد، وبهذا نتأكد من أن مربعات الاختيار تعكس دوماً الحالة الصحيحة.

والله أعلم.

New Microsoft Office Access Application.rar

الاخ احمد

جزاك الله خيراااااااااا

وانا من متابعى دروسك ولكن فى صمت واتمنى لك التوفيق

جزاكم الله خيرا جميعا

شكرا اخي الكريم وجزاك الله خيرا