Κουμπί να κλειδώνει πεδίο formas και να ξεκλειδώνει

[ΚΩΣΤΑΣ2]

Γεια σε όλο το forum
Για άλλη μια φορα ζητάω τη βοήθεια σας
Έχω μια forma για την απογραφή της αποθήκης μου
Θέλω να βάλω 2 κουμπιά το ένα να κλειδώνει το πεδίο posto και το άλλο να ξεκλειδώνει το posto.
Eυχαριστώ.

[nasos23]

Καλησπέρα σε όλους.
Κώστα στο κουμπί "Κλειδωμα-posto"
Σε προβολή σχεδίασης -> Συμβάν -> Με το κλικ

Private Sub Εντολή5_Click()
Me.posto.Enabled = False
End Sub

και αντίστοιχα στο κουμπί "Ξεκλειδωμα-posto"

Private Sub Εντολή6_Click()
Me.posto.Enabled = True
End Sub

[ΚΩΣΤΑΣ2]

ΝΑΣΟ σε ευχαριστώ για το ενδιαφέρον σου δουλεύει μια χαρά ,όμως θα μπορούσε αφού γράψουμε μια τιμή στο πεδίο πόστο και το κλειδώσουμε να τη κρατάει κάτι σαν προεπιλεγμένη τιμή
τη forma την έχω για να καταχωρώ με barcode σκάνερ
250είδη/πόστο πίστευα ότι με το κλείδωμα θα γινότανε

[nasos23]

Καλημέρα Κώστα
Αν κατάλαβα καλά
Μήπως σε εξυπηρετούσε αυτό.
Στη φόρμα σε προβολή σχεδίασης αντέγραψε τον παρακάτω κώδικα

Private Sub Form_Current()
Me!posto.Enabled = IsNull(Me!posto)
End Sub

Κλειδώνει το πεδίο posto όπου υπάρχει τιμή.

[ΚΩΣΤΑΣ2]

Φιλε ΝΑΣΟ δουλεύει αλλα δεν με εξυπηρετεί διότι σε νέα
εγγραφη δεν καταχωρεί το πόστο.Το έλυσα με το να κάνω προεπιλεγμένη τιμή το πεδίο πόστο
Private Sub posto_AfterUpdate()
Me.posto.DefaultValue = Me.posto.Value
MsgBox "DefaultValue: " & Me.posto.DefaultValue
End Sub
σε ευχαριστώ