مقارنة مبلغ في نموذج فرعي مع رئيسي

[husseinharby]

السلام عليكم

في نموذج credit_paper 

اريد عندما يساوي اجمالي الدفعات مبلغ الشيك ان يتم تغيير الحالة من تحت التحصيل الي مدفوعة

او ان يتم اعطائي رسالة تقول تم السداد

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

 

03-06-2024.rar

تم تعديل منذ 2 ساعات بواسطه husseinharby

[Foksh]

1 ساعه مضت, husseinharby said:

السلام عليكم

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

من تجاربي لا يمكن عبر التنسيق الشرطي تغيير قيمة الكومبوبوكس فعلاً إلى (مدفوعة) ، ولذا توجهت إلى استخدام الفكرة التالية .

استخدمت كود بسيط يقوم بمقام التنسيق الشرطي ، نضعه في النموذج الرئيسي  :-

Public Sub CheckPaymentState()
    If Nz(Me.Text63, "") = Nz(Me.Credit_Paper_Payments.Form.Text12, "") Then
        Me.Credit_Paper_Sub.Form!State = "مدفوعة"
    Else
        Me.Credit_Paper_Sub.Form!State = Null
    End If
End Sub

ونستدعيه أيضاً من النموذج الرئيسي في حدث في الحالي ، بهذا الشكل :-

Private Sub Form_Current()
    Call CheckPaymentState
End Sub

 

طبعاً بما انني اعتمدت على قيمة مربع النص Text63 في النموذج الرئيسي مع قيمة مربع النص Text12 للمجموع في النموذج الفرعي Credit_Paper_Payments ، فاضطررت الى تعيين القيمة 0 له من خلال اضافة الدالة NZ له ليصبح مصدر بياناته =

=Nz([Credit_Paper_Payments].[Form]![Text12],0)

بدلاً من السابق :-

=[Credit_Paper_Payments].[Form]![Text12]

 

وبالتالي ملفك بعد التعديل :-

 

server.zip

[husseinharby]

HNXIs8EyjX.rar

شكرا اخي الفاضل علي المجهود لكن الكود لا يعمل في باقي السجل 

مثلا في الورقة رقم 1528 لا يعمل الكود

مع العلم ان مفتاح الربط المشترك بين النموذجين هو رقم الورقة paper_id

وكل ورقة مستقلة عن الاخري كما هو موضح في الفيديو المرفق

 

تم تعديل منذ 31 دقائق بواسطه husseinharby

[Foksh]

بسيطة أخر الكريم ..

في حدث بعد التحديث لمربع النص Payment الموجود في النموذج الفرعي Credit_Paper_Payments ، اجعل الحدث = 

Forms!credit_paper.CheckPaymentState

 

ولضمان ابقاء القيمة ذاتها للكومبوبوكس عند عدم تحقق الشرط ، استبدل كلمة Null بالقيمة التالية

Me.Credit_Paper_Sub.Form!State.Value