[ Φόρμες ] Τιμή σε κλειδωμένο πεδίο

[NIC]

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