After Update

[Alex Motilal]

Hello everybody,

I do have a Form and Subform in which payments for products are entered. The Main Form contains among other fields, a field, 'ProductValue'. The Subform contains two fields, PaymentDt and PaymentAmount. Payments for a product is made either one time or on several dates. On entering the payments, if the payment exceeds the product value, a warning message should appear. I tried the following in the after update event of PaymentAmount:

If Sum([Me.PaymentAmount]) > Me.Parent.ProductValue Then
MsgBox "Payment exceeds the total payable for the Product, " & Me.Parent.ProductValue, vbCritical + "CAUTION! PAYMENT EXCEEDS PRODUCT VALUE!"
End If

However the function is not working.

Please let me know what mistake I have committed.



Regards,
Alex

[RuralGuy]

Why not use a MsgBox in the AfterUpdate event to display the value of "Sum([Me.PaymentAmount])" and see what is going on?

[burrina]

Not sure what you are doing with the Sum function, Please explain that! However, try this!

If Me.PaymentAmount > Me.Parent.ProductValue Then
Call MsgBox("Payment exceeds the total payable for the Product", vbCritical, Application.Name)
End If

HTH