[ Φόρμες ] Αόρατο κουμπί μετά την πρώτη εκτέλεση εφαρμογής

[apostolos]

Γεια σας
Θέλω την βοήθεια σας στο εξής: Θέλω σε μια φόρμα ένα κουμπί να εμφανίζεται μόνο την πρώτη φορά εκτέλεσης του προγράμματος, μετά το κλικ πάνω σε αυτό να εκτελείται και μετά να γίνεται αόρατο όσες φόρες και αν τρέξει το πρόγραμμα
Σας ευχαριστώ

[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

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

[editolis]

Επισης εγω θα σου προτεινα Γιωργο μια επιπροσθετη διαδικασια για την επαναδημιουργια του πινακα tblHiddenButton στην σπανια περιπτωση διαγραφης του (Ελεγχος - Δημιουργια).

Και μονο εαν αυτο το κουμπι εντολης ειναι τοσο κρισιμο στην εφαρμογη.

Συνεχισε την καλη δουλεια.

[apostolos]

Γιωργο, σε ευχαριστώ που με βοηθησες και αυτη τη φορα. Δουλεψε τελεια,

[kapetang]

Καλησπέρα
Φίλε Τόλη ευχαριστώ.
Συμφωνώ με την παρατήρησή σου.
Πράγματι μια πιο ολοκληρωμένη προσέγγιση θα έπρεπε να εξετάζει την ύπαρξη του πίνακα «tblHiddenButton» και να προβλέπει κατάλληλες ενέργειες και επίσης να αντιμετωπίζει την εμφάνιση λαθών χρόνου εκτέλεσης.
Γιώργος