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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Έλεγχος Ποσού (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4073-elegxos-posoi.html)

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

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

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

Παράθεση:

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

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

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

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

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

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

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

Παράθεση:

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

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