Как вывести имена всех запросов?

[Cave_IAR]

Добрый день!

Подскажите пжлст строчку (строчки) VBA, которая выводит имена всех запросов.

Ну или как имена всех запросов загнать в источник строк в поле со списком?
Заранее спасибо за помощь!

[Woodlin]

Cave_IAR, в справке есть пример:

Sub AllQueries()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    ' Search for open AccessObject objects in AllQueries collection.
    For Each obj In dbs.AllQueries
        If obj.IsLoaded = True Then
            ' Print name of obj.
            Debug.Print obj.Name
        End If
    Next obj
End Sub

[Cave_IAR]

Вау, спасибо!

Буду теперь активней налегать на справку)