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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Αόρατο κουμπί μετά την πρώτη εκτέλεση εφαρμογής (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1270-aorato-koympi-meta-tin-proti-ektelesi-efarmogis.html)

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

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

Καλημέρα

Απόστολε, στη ΒΔ που επισυνάπτω υπάρχει μια προσέγγιση του ζητούμενου.
Βασίζεται στην προσθήκη στη ΒΔ ενός βοηθητικού πίνακα (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

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

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

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

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

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

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