إظهار رسالة إن بلغ المجموع أكبر من مجموع حقل آخر

للرفع

السلام عليكم

اخي العزيز

اذهب الى حقل esteaab في النموذج الفرعي وضع هذه الاكواد بعد التحديث

Dim Twen, Ttotal As Integer
Twen = Forms![st_sofoof]![wen] ' الحقل في النموذج الاساسي
Ttotal = [نص18] + Nz([esteaab])
' الحقل الموجود في النموذج الفرعي
If [Ttotal] > [Twen] Then
MsgBox "الرقم المدرج اكبر من الرقم الرئيسي"
Me.Undo
End If
End Sub

ألف شكر أخي أبو صفاء جزاك ربي الجنة

تم حل المشكلة بالكود الذي أرفقته فجزاك الله خير

أكرر لك شكري