Εκτέλεση Ερωτήματος από μακροεντολή

[ggreg75]

Καλησπέρα.
Η ερώτησή μου είναι η εξής : Υπάρχει τρόπος να βλέπω σε πραγματικό χρόνο ποιο ακριβώς ερώτημα εκτελείται την συγκεκριμένη στιγμή από μία μακροεντολή; Έχω μία μακροεντολή με πολλά ερωτήματα και δεν μπορώ να δω ποιο εκτελείται και πόσα έχουν απομείνει.

Ευχαριστώ εκ των προτέρων

[pctechdr]

Ένας απλός τρόπος να το κάνεις είναι ο εξής.

Δημιουργείς μία φόρμα με 2 text. πχ Text 3 και Text 5
Βάλε και ένα κουμπί και στο συμβάν on click γράφεις κώδικα πχ

Me.Text3.value = "Step 01 of ποσα ερωτήματα έχεις"
Me.Text5.value = "Please Wait!!"
DoCmd.OpenQuery "Ερώτημα1"
Me.Text3.value = "Step 02 of 12"
DoCmd.OpenQuery "Ερώτημα 2"
Me.Text3.value = "Step 03 of 12"
DoCmd.OpenQuery "Ερώτημα 3"
Me.Text3.value = "Step 04 of 12"
DoCmd.OpenQuery "Ερώτημα 4"
.............................. Όσα ερωτήματα θέλεις και στο τέλος
Me.Text5.value = "Ready!"

[kapetang]

Καλησπέρα

Γρηγόρη, δες στη συνημμένη ΒΔ μία προσομοίωση του ζητούμενου.

1) Στη ΒΔ η συνάρτηση ProgressMeter εμφανίζει τη φόρμα Form1.

2) Η μακροεντολή Macro1, πριν εκτελέσει ένα ερώτημα, καλεί τη συνάρτηση ProgressMeter με όρισμα το όνομα του ερωτήματος.

3) Ο κώδικας της ProgressMeter, ανοίγει τη φόρμα Form1 και ορίζει κατάλληλα την ιδιότητα Caption.

Στον κώδικα πρόσθεσα και ένα μήνυμα για καθυστέρηση.

Κάνε διπλό κλικ στο Macro1 και δες το αποτέλεσμα.

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

[kapetang]

Καλησπέρα

Επειδή βρίσκω απλή και πρακτική τη λύση που πρότεινε ο Χρήστος, ανεβάζω μια παραλλαγή της.

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

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

[ggreg75]

Σας ευχαριστώ όλους θερμά για την άμεση ανταπόκρισή σας!