[ Φόρμες ] Ενημέρωση φόρμας με vba

[silixridi]

Private Sub B1_AfterUpdate()
If B1.Value = False Then B11.Caption = ""
If B1.Value = True Then B11.Caption = 5
End Sub

Το Β1 δέχεται Ναι/Όχι. Θα ήθελα αν το Β1 είναι Ναι τότε αντι για 5 που γράφω να παίρνει ορισμένη τιμή από πίνακα

ΕΞΕΤΑΣΗ ΚΟΣΤΟΣ
Β1 ,,,,,,,,,,,,,,,, 5
Β2,,,,,,,,,,,,,,,,, 9

κ.ο.κ

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

[Meteora]

Καλησπέρα, Χριστός Ανέστη...

Ανέβασε μια μικρογραφία (πίνακα-φόρμα) για να δούμε τι ακριβώς χρειάζεσαι...

Φιλικά /Νίκος

[silixridi]

Αυτο ειναι το τελευταιο βημα που θελω να κανω για να δουλευει η βαση.

Παρακαλω τα φωτα σας.

[Meteora]

Καλημέρα

Επειδή παρέμεινα -πεισματικά- στην έκδοση office 2007, δεν μπορώ να ανοίξω την βάση. Παρακαλώ είτε εσύ Κώστα, είτε κάποιο μέλος, να την αναρτήσει σε μια προγενέστερη έκδοση.

Ευχαριστώ

[silixridi]

ΟΚ, η βαση ανοιγει με 2007.

[Meteora]

Λοιπόν!

Έκανα ...του κεφαλιού μου, μιας και οι πίνακες που είχες δεν ήταν -κατά την γνώμη μου- ικανοί να στηθεί μια εφαρμογή.

Ελπίζω να έχεις ωφέλεια... / Νίκος

[silixridi]

Ευχαριστω πολυ για την ιδεά σου.

Απλως θελω να εχει την επιλογη ΝΑΙ/ΟΧΙ και να μπορεί να παιρνει την τιμη - εαν ΝΑΙ- απο τον πινακα ΚΟΣΤΟΣ ΕΞΕΤΑΣΕΩΝ. Δηλαδη να εχω μια μεγαλη λιστα εξετασεων (100) και να επιλεγω γρηγορα οποιες θελω και αυτες να τιμολογουνται.

[Meteora]

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

Φιλικά / Νίκος

[silixridi]

Στην επισυναψη φαινεται το γιατι επιμενω στο ΝΑΙ/ΟΧΙ (τσεκαρω), απλως θελω να προσδιορισω το κοστος απο εναν πινακα (στον οποιο θα αλλαζω τις τιμες, οταν αυτες αλλάζουν).

Private Sub B1_AfterUpdate()
If B1.Value = False Then B11.Caption = ""
If B1.Value = True Then B11.Caption = [ΚΟΣΤΟΣ ΕΞΕΤΑΣΕΩΝ][ορισμενη τιμη]
End Sub

Το Β1 δέχεται Ναι/Όχι. Θα ήθελα αν το Β1 είναι Ναι τότε αντι για 5 που γράφω να παίρνει ορισμένη τιμή από πίνακα

[vraxnakisg]

Καλησπέρα φίλε Κώστα,
Δες την συνημμένη βάση.