المطللوب: مجموع القيم في النموذج الفرعي يجب أن تساوي القيمة في النموذج الإساسي

الاخ أو الاخت السائلة

تم التعديل علي المرفق وطبعا الفضل يرجع لقاعدة IF

وهذا الكود السحري

Private Sub Command32_Click()
If Me.Text58 = Me.Total__Paid_Amount Then
Dim x As String
x = MsgBox("للاسف لا تسطيع الخروج من البرنامج", vbCritical, "قيم متساية")
DoCmd.CancelEvent
Else
x = MsgBox("قيم غير متساوية لذلك سيتم اغلاق البرنامج فورا", vbCritical, "قيم غير متساوية")
DoCmd.Close
End If
End Sub

وهذه صورة من الراسالة التي توضح عدم الخروج من البرنامج في حالة تطابق قيم paid amount

وهذه صورة من الراسالة التي توضح الخروج من البرنامج في حالة عدم تطابق قيم paid amount

مرفق الملف بعد التعديل

z_db5.rar

محمد فؤاد تركي

شكراً جزيلاً لك وكثر الله من أمثالك

لقد حصلت على مبتغايّ

بارك الله فيك :clapping:

الإخوة والأخوات الأفاضل

بعد التحية

لدي طلب آخر وأتمنى أن اجد الحل لديكم

كما هو موضح في الصورة المرفقة:

لدي عدة حقول في النموذج الفرعي Balance Payment Details وأهمها Amount - Paid Amount - Balance

وكما هو موضح في الصورة عن طريق الأسهم

أود لو أن هناك إمكانية في السجل الثاني والسجلات التالية لو تأخد القيمة من Balance وتوضع تلقائياً في Amount

أي في السجل الثاني أو عند إضافة كل سجل جديد يتم نقل القيمة في Balance إلى Amount تلقائياً (السجل الثاني والثالث إن وجد والرابع وهكذا بإستثناء السجل الأول لا يطبق عليه هذا الشرط).

تحياااتي

db6.rar