التعديل فى الجداول المرتبطة

[monm]

فى المرفق جدولين تم ربطهما معا 

عند الادخال فى النموذج الرئيسى والفرعى يتم الادخال بشكل سليم 

المشكلة عند تعديل الرقم فى الرئيسى لا يتم التعديل ايضا فى الفرعى وتخرج رسالة كما فى الصورة

المطلوب كيف يتم التعديل فى الجداول المرتبطة فى نفس اللحظة عند التعديل فى النموذج الرئيسى ....

وياريت يكون فى زر للتعديل ............. واشكر الجميع

Database1.accdb

تم تعديل يناير 13, 2019 بواسطه monm
اضافة المرفق

[صالح حمادي]

السلام عليكم

اتبع الخطوات الموجودة بالصورة أدناه:

و هذا المرفق بعد التعديل:

 

Database11.rar

[monm]

شكرا استاذنا الكبير 

ولكن ماذا لو تم عمل رسالة تفيد بأنه سيتم تغيير 

كيف يمكن ذلك 

[monm]

الاساتذة الكرام اين الرد

[صالح حمادي]

في ١٤‏/١‏/٢٠١٩ at 05:04, monm said:

ولكن ماذا لو تم عمل رسالة تفيد بأنه سيتم تغيير 

كيف يمكن ذلك 

لم أفهم ماذا تقصد يا ريت توضح أكثر

[monm]

الاخ الغزيز صالح

عند تغيير السجل الحالى يتم التغير مباشرة

اريد رسالة تعلن أن هناك تغيير خدث بالسجل موافق ام لا 

[صالح حمادي]

تفضل في حدث قبل التحديث لمربع رقم الأستاذ أضف هذا الكود:

    Dim Msg, Style, Title, Response
    Title = "تغيير السجلات"
    Msg = "سينتج عن هذا التعديل تغيير في السجلات الفرعية" & vbCrLf & vbCrLf & _
           "هل أنت متأكد من التعديل على السجلات الفرعية؟ "
    Style = vbYesNo + vbDefaultButton2
    Response = MsgBox(Msg, Style, Title)
    If Response = vbNo Then
       Undo
    End If

و في حدث بعد التحديث ضع هذا الأمر:

Me.Refresh

 

Database11.rar

[monm]

الاخ الغزيز صالح

الشكر موفور لحضرتك ودائما موفقك فى كل اعمالك