[kapetang]

Καλημέρα

Δάφνη, πιστεύω ότι το πρόβλημα θα λυθεί αν στο συμβάν κλικ του κουμπιού βάλεις τον παρακάτω κώδικα:

Private Sub Εντολή7_Click()

    If Me.Εντολή7.Caption = "Ενεργοποίηση επεξεργασίας" Then
        Me.Εντολή7.Caption = "Απενεργοποίηση επεξεργασίας"
       

    Else
        Me.Εντολή7.Caption = "Ενεργοποίηση επεξεργασίας"
         If Me.Dirty Then
            If MsgBox("Υπάρχει εγγραφή σε κατάσταση επεξεργασίας" & vbCrLf & _
            "                      Να αποθηκευτεί;", vbCritical + vbYesNo) = vbYes Then
                Me.Dirty = False
            Else
                Me.Undo
            End If
        End If
    End If

    Me.AllowAdditions = Not Me.AllowAdditions
    Me.AllowDeletions = Not Me.AllowDeletions
    Me.AllowEdits = Not Me.AllowEdits

End Sub

Φυσικά στη δική σου ΒΔ θα πρέπει να αντικαταστήσεις το "Εντολή7", που αναφέρεται στον κώδικα, με το όνομα που έχει το κουμπί στη δική σου ΒΔ.

Φιλικά/Γιώργος