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/2024-timi-se-kleidomeno-pedio.html)

Τιμή σε κλειδωμένο πεδίο

Καλημέρα. Σε μια βάση που έκανα ένα πεδίο το όρισα να περνά τιμές από μια λίστα. (πεδίο « κατηγορία» με τιμές Α, Β, ,Γ, Δ,) Για να αποφεύγω τυχόν λάθη όρισα με την ενημέρωση του πεδίου κατηγορία να περνά αυτόματα μια τιμή που είναι σταθερή πάντα σε ένα άλλο πεδίο με όνομα «χρήματα» το οποίο και κλείδωσα ώστε να μην μπορεί να σβήσει κάποιος το ποσό κατά λάθος. Τώρα όμως χρειάζεται να προσθέσω μια ακόμη τιμή στο « κατηγορία» πχ Δ η οποία όμως να μην έχει σταθερή τιμή. Μπορώ μόνο για την επιλογή Δ να περνώ τιμή χειροκίνητα ή με κάποιο άλλο τρόπo
Ευχαριστώ

Νίκο καλό σου μεσημέρι,

Αν κατάλαβα καλά στο πεδίο 'Κατηγορία', στο συμβάν After Update, μόλις ενημερώνεις περνάς μια τιμή στο πεδίο 'Χρήματα' και το κλειδώνεις.

Αν στο πεδίο κατηγορία, που υποθέτω είναι combo box, προσθέσεις μια νέα κατηγορία π.χ. Ε με τιμή Null, ξεκλείδωσε το πεδίο 'Χρήματα' πέρνα του μια τιμή και το κλειδώνεις ξανά.

Καλύτερα θα ήταν, αν έστελνες μια Β.Δ. σαν παράδειγμα.

Νίκο μήπως σου κάνει αυτό;

Με την προϋπόθεση ότι το πεδίο 'Κατηγορία' έχει τιμή Ε=Null
τότε στα αντίστοιχα συμβάντα βάλε αυτόν τον κώδικα

Κώδικας:

Private Sub Form_Load()

    Me.Χρήματα.Enabled = False

    Me.Χρήματα.Locked = True

End Sub
 

Private Sub Κατηγορία_AfterUpdate()

    

    If Me.Κατηγορία = "E" Then

        Me.Χρήματα = ""

        Me.Χρήματα.Enabled = True

        Me.Χρήματα.Locked = False

        Exit Sub

    Else

        Me.Χρήματα = Me.Κατηγορία.Column(1)

        Me.Χρήματα.Enabled = False

        Me.Χρήματα.Locked = True

    End If
 

End Sub
 

Private Sub Χρήματα_AfterUpdate()

        Me.Χρήματα.Enabled = False

        Me.Χρήματα.Locked = True

End Sub