اين اضع كود تغير مصدر السجل للنموذج

[ماجدجلال]

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

منذ امس جربت اغلب مواقع الحدث للنموذج ولم ينجح معي ,

الملف المرفق بة توضيح اكثر , وللتجربة بعد فتح النموذج اختار ( البرج الثاني ) من خانة الاختيار اسفل العنوان ثم اذهب الي ( رقم العقد ) ستجد ارقام الجدول الثاني - الي هنا الامور صحيحة - اختار اي رقم ثم اضغط انتر ,

السؤال : تظهر رسالة مباشرا بان الرقم ليس ضمن الجدول , مع انة قبل قليل ضمن الجدول ,

كيف الحل ارجو المساعدة وشكرا ,,,,

____________________.zip

[rudwan]

اجعل الكود كما يلي

Private Sub shoz1_AfterUpdate()
If shoz1 = 2 Then
Me.RecordSource = "contract2"
Else
Me.RecordSource = "contract1"
End If
End Sub

[ماجدجلال]

شكرا لم استاذ رضوان

سوف اجرب وارد عليكم ,

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