[gmaster]

Καλησπέρα Γρηγόρη!

Η περιγραφή ενός ερωτήματος της Access, εφόσον έχει τεθεί, είναι προσπελάσιμη μέσω VBA από την ιδιότητα .Properties("Description") του κάθε αντικειμένου της συλλογής QeryDefs της CurrentDB.
Με έναν βρόχο όπως στο παρακάτω παράδειγμα μπορείς να δημιουργήσεις τη λίστα που επιθυμείς, ακόμα και να γεμίσεις έναν πίνακα με αυτά τα δεδομένα.

Sub ListQueryDefDesc()
    Dim qDef As QueryDef

    For Each qDef In CurrentDb.QueryDefs
        On Error Resume Next
        With qDef
            If IsEmpty(.Properties("Description")) Then
            Else
                Debug.Print .Name & vbCrLf & vbTab & .Properties("Description")
            End If
        End With
    Next qDef
End Sub

Καλή επιτυχία!