25-02-16, 14:26
|
| Όνομα: Θάνος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 09-05-2012 Περιοχή: Λάρισα
Μηνύματα: 49
| |
Το μήνυμα που εχω βάλει..
Τελικά το βρήκα μαλλον με τις ιδιότητες των πεδίων Παράθεση:
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
|
Ευχαριστώ για τον χρόνο σας
|