[kasampas]

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

Πρόσφατα διαπίστωσα ότι η δήλωση 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;

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