Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Κουμπί να κλειδώνει πεδίο formas και να ξεκλειδώνει (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3260-koympi-na-kleidonei-pedio-formas-kai-na-ksekleidonei.html)

ΚΩΣΤΑΣ2 04-08-14 20:32

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

nasos23 04-08-14 22:00

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

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

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

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

ΚΩΣΤΑΣ2 05-08-14 07:04

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

nasos23 05-08-14 10:32

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

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

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

ΚΩΣΤΑΣ2 05-08-14 19:17

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


Η ώρα είναι 03:19.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2