[Free_Ghost]

Αρχική Δημοσίευση από Jim

Private Sub Ονομα_AfterUpdate()
Forms!ΟνομαΦόρμας!ΟνομαΠεδίο� �.Locked = True
End Sub

Private Sub ΟνομΠεδίου_DblClick(Cancel As Integer)
Forms!Ονομαφόρμας!ΟνομαΠεδίο� �.Locked = False
End Sub

Επιλέγεις το πεδίο που θέλεις να κλειδώσεις πας Ιδιότητες , Συμβάν , Μετά από ενημέρωση Βάζεις Διαδικασία Συμβάντος πατάς το κουμπάκι με τις τελίτσες
Και κολλάς τον κώδικα τον 1ο Στον δεύτερο κώδικα γιά ξεκλείδωμα το ίδιο πάλι αλλά στο DblClick
Αν και νέος προχθές το έμαθα οφείλω να το μεταδώσω ξέρω τι είναι να περιμένεις Στην αναμονή
Φιλικά Δημήτρης

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