[kapetang]

Καλημέρα

Απόστολε, στη ΒΔ που επισυνάπτω υπάρχει μια προσέγγιση του ζητούμενου.
Βασίζεται στην προσθήκη στη ΒΔ ενός βοηθητικού πίνακα (tblHiddenButton) με μία εγγραφή και ένα πεδίο τύπου «ΝΑΙ/ΟΧΙ» (fVisible), του οποίου η τιμή καθορίζει αν το κουμπί της φόρμας θα είναι ορατό.
Όταν εκτελείται για πρώτη φορά η εφαρμογή η τιμή του πεδίου είναι TRUE και μετά το πάτημα του κουμπιού και την εκτέλεση του σχετικού κώδικα , γίνεται FALSE.
Ο σχετικός κώδικας στη φόρμα φαίνεται παρακάτω.

Private Sub cmdHidden_Click()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tblHiddenButton")
    
    With rs
        'Αν δεν έχουν εκτελεστεί οι εντολές, εκτελούνται
        If .Fields(0) Then
            'Οι εντολές που θα εκτελεστούν
            MsgBox "Η διαδικασία ολοκληρώθηκε επιτυχώς"
            .Edit
            .Fields(0) = False
            .Update
            Me.txtFocus.SetFocus  'χρειάζεται για να μεταφερθεί η εστίαση
            Me.cmdHidden.Visible = False 'από το κουμπί πριν γίνει αόρατο
        End If
    End With
    rs.Close
End Sub

Private Sub Form_Load()
    'Αν έχουν εκτελεστεί οι εντολές, γίνεται απόκρυψη του κουμπιού
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tblHiddenButton")
    Me.cmdHidden.Visible = rs.Fields(0)
    rs.Close
End Sub

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