msgbox σε access ...μηπως ζηταω πολλα?

[marios1984]

Καλημερα...εχω μια φορμα που εχω τις εγκρισεις και μια υποφορμα στην οποια περναω τα τιμολογια...εγκριση και τιμολογια συνδεονται μεταξυ τους με σχεση 1 προσ πολλα...δλδ μια εγκριση πληρωνεται με πολλα τιμολογια...τι θελω τωρα να κανς...
θελω καθε φορα που το ποσο εκταμιευσης ( ποσα τιμολογιων ) ξεπερνα το ποσο εγκρισης να εμφανιζει ενα μηνυμα που να ενημερωνει αν ξεπερναει η οχι το ποσο ...εχω κανει κατι αλλα δεν λειτουργει ...
Private Sub Form_afterupdate()
If ποσο_εκταμιευσης>ποσο_εγκρ� �σηςThen
MsgBox "το ποσο εκταμιευσης ξεπερνα το ποσο εγκρισης!"
Else
MsgBox "το ποσο εκταμιευσης δεν ξεπερνα το ποσο εγκρισης!"
End If
End Sub

ευχαριστω

[Giorgos]

If ποσο_εκταμιευσης>ποσο_εγκρ then
MsgBox "Το ποσό εκταμιευσης είναι μεγαλήτερο της εγκρισεως", vbCritical, "Ενημερωτικό"
exit sub
else
MsgBox "Η συναλαγή ολοκληρώθηκε με επιτυχια", vbCritical, "Ενημερωτικό"
end if


Γιώργος

[Giorgos]

Υ.Γ Μαριε αποφευγε τα ελληνικα στον κωδικα προσπαθησε να γράφεις σε λατινικα.

Φιλικα Γιώργος

[marios1984]

ευχαριστω για την γρηγορη απαντηση αλλα αυτο ειχα κανει και γω...το θεμα ειναι οτι αν πχ το ποσο εγκρισης ειναι 12000 και εχω 2 τιμολογια 11000 και 100 που αθροιστικα ειναι μικροτερο απο το 12000 μου βγαζει οτι το εχει ξεπερασει το ποσο...:(

[Tasos]

Μάριε καλημέρα!
Αν το επιτρέπουν τα δεδομένα, ή αν γίνεται ανέβασε ένα παραδειγματικό αρχείο στο φόρουμ για να δούμε όλοι μαζί πώς είναι δομημένα τα δεδομένα σου προκειμένου να σου προτείνουμε κάποια λύση.

Φιλικά

Τάσος

[marios1984]

ειναι ενα παραδειγμα της βασης...για ευνοητους λογους δεν μπορω να ανεβασω την βαση που δουλευω αλλα και για λογους χωρητικοτητας :)

[marios1984]

rolf...δεν μαφηνει ο server ναανεβασω...να σας το περιγραψω....η κυρια φορμα εχει κελια τα εξης:
αριθμο εγκρισης, ποσο εγκρισης, αριθμος λογαριασμου
και η υποφορμα εχει αριθμο τιμολογιου, ποσο εκταμιευσης αριθμος λογαριασμου
και αριθμο εγκρισης

οι 2 φορμες συνδεονται με αριθμο εγκρισης, αριθμος λογαριασμου

ετσι οταν πχ εχω την εγριση νο 10 με ποσο 12.000 μου εμφανιζει απο κατω τα τιμολογια
πχ νο34 6000
νο35 3000 κλπ...
τωρα αυτο που θελω ειναι οταν το αθροισμα των εκταμιευσεων σε μια συγκεκριμενη εγκριση ξεπερνα το ποσο εγκρισης να πετα το msgbox

[Tasos]

Φίλε Μάριε, καλησπέρα!

Στο Form_AfterUpdate() της υποφόρμας πρόσθεσε τον παρακάτω κώδικα:

Option Compare Database
Option Explicit

Private Sub Form_AfterUpdate()
    If DSum("[ποσο_εκταμιευσης]", _
    "Table2", "αριθμος_λογαριασμου=" & Me.αριθμος_λογαριασμου) _
     > Me.Parent.ποσο_εγκρισης Then
     MsgBox "Υπέρβαση!", vbExclamation
    End If
End Sub

Όπου "Table1" = ή πηγή της κύριας φόρμας και
"Table2" = ή πηγή της υποφόρμας.
Τα λέμε...

Τάσος