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

[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 οι τιμές είναι κανονικές.

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

[vraxnakisg]

Γεια σου Θάνο.
Στην συνθήκη άλλαξε το > με >=.

[thanosgr]

Οχι δεν περνάει...
Εξάλου να μπορω να περνάω ποσό τιμολογίου ίσο με την πιθανή δαπάνη

[vraxnakisg]

Τι λάθος βγάζει?

[thanosgr]

Το μήνυμα που εχω βάλει..

Τελικά το βρήκα μαλλον με τις ιδιότητες των πεδίων

dblInvoiceAmount = Nz(Me!InvoiceAmount, 0)
dblPrice = Nz(DLookup("TotalPrice", "PreorderTotalPRice", "PreorderID = " & Me!PreorderID & ""), 0)

If Format(dblInvoiceAmount, "Standard") > Replace(dblPrice, ",", ".") Then
MsgBox "Ποσό τιμολογίου δεν μπορεί να υπερβαίνει την πιθανή δαπάνη.", vbCritical, "Προσοχή"
Me!InvoiceAmount.Undo
Cancel = True
Exit Sub
End If

Ευχαριστώ για τον χρόνο σας