[kapetang]

Καλησπέρα στην παρέα
Αλεξάνδρα προσπάθησα να δημιουργήσω μία εφαρμογή στην οποία κάθε φόρμα θα έχει ένα κουμπί, που, όταν το πατούμε, θα αλλάζει την κατάστασή της.
Αναλυτικότερα:
1. Όταν η φόρμα ανοίγει θα είναι μόνο για εμφάνιση στοιχείων (ανάγνωση).
2. Στη συνέχεια, πατώντας το κουμπί, θα μπορούμε να προσθέσουμε, να τροποποιήσουμε και να διαγράψουμε στοιχεία. Φυσικά αν το ξαναπατήσουμε η φόρμα θα γίνεται πάλι για ανάγνωση.
Η παραπάνω λειτουργία της φόρμας εξασφαλίζεται από τον κώδικα που ακολουθεί.
Private Sub Form_Load()
'η φόρμα είναι μόνο για εμφάνιση στοιχείων
Me.cmdToggleEdit.Caption = "Ενεργοποίηση επεξεργασίας"
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
End Sub

Private Sub cmdToggleEdit_Click()
'Εναλλάσει την κατάσταση εμφάνιση/ επεξεργασία
If Me.cmdToggleEdit.Caption = "Ενεργοποίηση επεξεργασίας" Then
Me.cmdToggleEdit.Caption = "Απενεργοποίηση επεξεργασίας"
Else
Me.cmdToggleEdit.Caption = "Ενεργοποίηση επεξεργασίας"
End If

Me.AllowAdditions = Not Me.AllowAdditions
Me.AllowDeletions = Not Me.AllowDeletions
Me.AllowEdits = Not Me.AllowEdits
End Sub
Δεν ξέρω τι συμβαίνει και ενώ όταν δημιουργούσα την εφαρμογή λειτουργούσε κανονικά, όταν την έκλινα και την ξαναφόρτωνα, χανόταν η λειτουργική μονάδα της φόρμας και φυσικά ο κώδικας !!!.
Θα σε παρακαλούσα να το δοκιμάσεις για να δούμε τι φταίει.
Δε χρειάζεται να πω ότι και οποιαδήποτε άλλη βοήθεια είναι ευσπρόσδεκτη.
Φιλικά/Γιώργος