Forum - Δήλωση queryDef

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

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

- - Δήλωση queryDef (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6343-dilosi-querydef.html)

Δήλωση queryDef

Καλημέρα σας και καλό καλοκαίρι

Πρόσφατα διαπίστωσα ότι η δήλωση queryDef δεν υπάρχει(;), δεν υποστηρίζεται(;), άλλαξε(;) δεν ξέρω.
Ο παρακάτω κώδικας ήταν ένα πολύ χρήσιμο και βολικό εργαλείο για την παραμετροποίηση των ερωτημάτων. Τον έχω χρησιμοποιήσει πολλές φορές στο παρελθόν σε παλαιώτερες εκδόσεις του office

Κώδικας:

Private Sub qExecut()

    Dim qdf As QueryDef, strSQL As String, psCritiria1 As String, psCritiria2 As String
 

    DoCmd.Close acQuery, "qFIND"

    Set qdf = CurrentDb.QueryDefs("qFIND")

   strSQL = qdf.SQL

.

.

.

Τώρα έχω εγκατεστημένα τα 2016. Όταν τρέχω αυτό τον κώδικα μου χτυπάει: "Compile error: Invalid qualifire" στη γραμμή strSQL=qdf.SQL

Έχετε υπ' όψιν σας πώς λύνεται αυτό το πρόβλημα;
Ή τέλος πάντων πώς μπορώ να έχω πρόσβαση στον SQL κώδικα μέσω VBA;

Ευχαριστώ πολύ

Γεια χαρά σε όλους!
Βάγγο στο παράθυρο του VBE κάνε κλικ στο μενού "Debug" και εκτέλεσε την εντολή "Compile VBAProject".

Κανονικά δεν θα πρέπει να σου βγάλει κάποιο σφάλμα εκτός και αν υπάρχουν συντακτικά λάθη στον κώδικα ή προβληματικές αναφορές στο έργο VBA.

Για να διορθώσεις τις αναφορές του έργου VBA στο αρχείο σου κάνε κλικ στο μενού "Tools", εκτέλεσε την εντολή "References..." και φρόντισε να αντικαταστήσεις τυχόν αναφορές από τη λίστα που περιέχουν τη λέξη "MISSING".

Δοκίμασε αυτά και πες μας τι έκανες.
Καλή συνέχεια

Με εκτίμηση

Τάσος

φίλε Τάσο ευχαριστώ πάρα πολύ για τη συμβουλή σου!
Λύθηκε το πρόβλημα
Καλό υπόλοιπο καλοκαιριού