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/839-koympi-ananeosis.html)

Κουμπί ανανέωσης

Καλημέρα σε όλους σας
Γνωρίζει κάποιος αν γίνεται και πως στην access 2007 όταν πατάω το κουμπί της ανανέωσης να μην με στέλνει στην αρχική μου εγγραφή αλλά να παραμένει στο σημείο που ήμουν?
Και κάτι δεύτερο που μπορεί να σας φανεί χαζό :crazy2: αλλά υπάρχει η δυνατότητα να σταματήσει να βγαίνει το μήνυμα "προειδοποίηση ασφαλείας" κατά την εισαγωγή μου στην access?
Να είναι δηλ πάντα ενεργοποιημένο το περιεχόμενο.
Ευχαριστώ πολύ
Καλή σας μέρα
Γιώργος

Καλημέρα Γιώργο!

Υποθέτω ότι ο πίνακας ή ερώτημα που πηγάζουν τα δεδομένα της φόρμα σου περιέχει αναγνωριστικό πεδίο με το όνομα "ID".

Στον κώδικα VBA του κουμπιού της ανανέωσης μπορείς να περάσεις το παρακάτω:

Κώδικας:

Private Sub cmdRefreshForm_Click()

    Dim IdNumber As Long

    IdNumber = Nz(Me.ID)

    Me.Requery

    If IdNumber <> 0 Then

        With Me.Recordset

            .FindFirst "[ID] = " & IdNumber

            If Not .EOF Then Me.Bookmark = .Bookmark

        End With

    End If

End Sub

Για την ενεργοποίηση ή απενεργοποίηση προειδοποιήσεων ασφαλείας στη γραμμή μηνυμάτων
ρίξε μια ματιά στον παρακάτω σύνδεσμο:

Ενεργοποίηση ή απενεργοποίηση προειδοποιήσεων ασφαλείας στη Γραμμή μηνυμάτων - Word - Microsoft Office

Καλή συνέχεια!

Φιλικά

Τάσος

Καλησπέρα στην παρέα

Φίλε Τάσο διαβάζοντας τη λύση που έδωσες μου δημιουργήθηκε η ακόλουθη απορία:
Αν η ανανέωση γίνεται πατώντας το κουμπί «Ανανέωση όλων» της ομάδας «Εγγραφές» της κορδέλας και όχι με κάποιο κουμπί της φόρμας, υπάρχει δυνατότητα να πετύχουμε το ίδιο και με ποιο τρόπο;

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

Αλλη μια παρομοια λυση:

Private Sub cmdRequery_Click()

Dim RS As Object
Dim lngBookmark As Long
lngBookmark = Me.CODE
Me.Requery
Set RS = Me.RecordsetClone
RS.FindFirst "CODE = " & lngBookmark
Me.Bookmark = RS.Bookmark
Set RS = Nothing

End Sub

Καλησπέρα σε όλους σας
Σχετικά με το κουμπί της ανανέωσης δεν εκφράστηκα σωστά στο αρχικό μου μήνυμα. Αναφερόμουν στο ανανέωση όλων που είναι στην κεντρική σελίδα. Υπάρχει λύση σε αυτό?
Σχετικά τ'ωρα με το δεύτερο μου ερώτημα, Τάσο ακολούθησα τα βήματα απο τον σύνδεσμο που μου ανέφερες αλλά δεν μου λειτουργεί τίποτα. Δεν μου εμφανίζεται το μήνυμα αλλά είναι σαν να μην έχω κάνει ενεργοποίηση του περιεχομένου.
Ευχαριστώ πολύ
Καλό απόγευμα
Φιλικά
Γιώργος