Цикл запросов с именем как образец

Question

У меня много запросов, которые я хотел бы выполнить, и все они имеют одинаковое окончание в своем имени.Таким образом, вместо перечисления десятков и десятков запросов в DoCmd, есть ли способ сообщить DoCmd, чтобы он открывал все запросы с одинаковой строкой букв в имени?

Например, qry1ABC и qry2ABC

Выполнить все запросы с именем типа "ABC"

Answer 1

Это перебирает все запросы в DB и запускает только те, которые начинаются с такого имени, как ABC:

Public Sub TestMe()

    Dim db As DAO.Database
    Set db = CurrentDb

    Dim qdf As DAO.QueryDef

    For Each qdf In db.QueryDefs
        Debug.Print qdf.Name
        If qdf.Name Like "*ABC*" Then
            DoCmd.OpenQuery qdf.Name
        End If
    Next qdf

End Sub