Έλεγχος Ποσού

[thanosgr]

Καλημέρα έχω κάποιους ελέγχους πχ εάν το ποσό τιμολογίου ξεπεράνει την πιθανή δαπάνη για καποιους διαγωνισμούς που χρησιμοποιούμε στην υπηρεσία.

Ο κώδικας δεν δουλεύει πάντα πχ οταν το ποσό της πιθανής δαπάνης είναι ίδιο με το τιμολογίου μου δείχνει το μύνημα λάθους. Στις περισσότερες εγγραφές δουλεύει κανονικά.

If Me!InvoiceAmount > Nz(DLookup("TotalPrice", "PreorderTotalPRice", "PreorderID = " & Me!PreorderID & ""), 0) Then
MsgBox "Ποσό τιμολογίου δεν μπορεί να υπερβαίνει την πιθναή δαπάνη.", vbCritical, "Προσοχή"
Me!InvoiceAmount.Undo
Cancel = True
Exit Sub
End If

οταν το τσεκάρω με τα breakpoints στο immediate windows οι τιμές είναι κανονικές.

Ευχαριστώ
Θάνος