Ανανέωση ιστοσελίδας

[gmax]

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

[kapetang]

Καλημέρα

Γιώργο, άλλαξε τον κώδικα της διαδικασία συμβάντος «Σύνθετο_πλαίσιο9_AfterUpdate()» με τον παρακάτω:

Private Sub Σύνθετο_πλαίσιο9_AfterUpdate()
    DoCmd.ApplyFilter , "[ΠΛΗΡΩΜΑ]='" & Me![Σύνθετο πλαίσιο9] & "'"
    Me.OrderBy = "[Α/Α]"
    Me.OrderByOn = True
End Sub

Πιστεύω θα δουλέψει.

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

[ασχετος]

Καλημέρα σ' όλους.

Γιώργο, έβαλα ενα πεδίο, την ημερομηνία στο query,
μήπως ήθελες κάτι τέτοιο;

[gmax]

Γιώργο σε ευχαριστώ πολύ. Είναι άψογο.
Ευχαριστώ και τον Κώστα αλλά η ημερομηνία δεν με ενδιαφέρει. Να είστε όλοι καλά!