Τιμές από Πίνακα Τιμοκατάλογο

[myly1400]

Καλημέρα στην παρέα.

Θέλω στον πίνακα δρομολογίων (TBL_VOUCHER) να εμφανίζεται η τιμή (ως προεπιλεγμένη) που έχει καταχωρηθεί στον πίνακα τιμοκαταλόγου (TBL_TIMOKATALOGOS) με βάση 4 κριτήρια σύμφωνα με τα δεδομένα που θα πληκτρολογώ στον πίνακα voucher.

Για να εξηγήσω έχω έναν πίνακα "TBL_TIMOKATALOGO" πλήρη, με πεδία APO - PROS - GRAFEIO - OXHMA τα οποία έχουν μία τιμή.
Θέλω να αποθηκεύω την τιμή διαδρομής στον πίνακα TBL_VOUCHER με βάση τον τιμοκατάλογο εφόσον πληρούνται τα παραπάνω κριτήρια (ΑΠΟ, ΠΡΟΣ, ΓΡΑΦΕΙΟ, ΟΧΗΜΑ).

Μέχρι τώρα έχω καταφέρει να βλέπω την τιμή στη φόρμα με ένα υπολογιζόμενο πεδίο με την Dlookup αλλά αυτό το πεδίο δεν αποθηκεύεται στον πίνακα TBL_VOUCHER στο πεδίο KOSTOS_SYMFONIA.
Αυτό είναι απαραίτητο γιατί η τιμή που θα αποθηκευτεί εκεί θα χρησιμοποιηθεί μελλοντικά και δεν πρέπει να επηρεαστεί από μελλοντικές αλλαγές του τιμοκαταλόγου. Οπότε μέχρι τώρα απλά αντιγράφω το ποσό του υπολογιζόμενου πεδίου της φόρμας στο πεδίο KOSTOS_SYMFONIA που αποθηκεύεται στον πίνακα TBL_VOUCHER.
(Κάτι ανάλογο θα κάνω και για την τιμή οδηγού (TIMH2) στον πίνακα τιμοκατάλογο)

Επισυνάπτω τη βάση

Ευχαριστώ εκ των προτέρων

[giannis_ie]

Καλησπέρα Νίκο
Δεν γνωρίζω να αντιμετωπίσω το ζητούμενο χωρίς κώδικα. Οπότε στο AfterUpdate Event των επίμαχων πεδίων που καθορίζουν την τιμή πρόσθεσα την εξής εντολή :

Me.KOSTOS_SYMFONIA = DLookup("[TIMH]", "TBL_TIMOKATALOGOS", "[APO]='" & [Forms]![FRM_VOUCHER].[Form].[APO] & "' AND [PROS]='" & [Forms]![FRM_VOUCHER].[Form].[PROS] & "' AND [GRAFEIO]='" & [Forms]![FRM_VOUCHER].[Form].[GRAFEIO] & "' AND [OXHMA]='" & [Forms]![FRM_VOUCHER].[Form].[MESO_AITHSH] & "'")

[myly1400]

Καλημέρα giannis_ie.

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

Και πάλι σε ευχαριστώ πολύ!

Νίκος