MS Access - получить текущее имя запроса подчиненной формы

Question

У меня есть форма classi c и подчиненная форма, которые получают записи из запроса, и я хочу присвоить переменной имя этого запроса, используемое подчиненной формой:

Dim qryVar as String
qryVar = Me.subForm1.Query.Name

this not ' т работы конечно ..

Answer 1

В коде родительской формы

Sub Test()
    Dim qryVar as string
    qryVar = Me.Controls("SubForm1").Form.RecordSource
    debug.print qryVar
End Sub

В коде модуля для вызова теста

Sub TestFormCode()
     Frm_ParentFormObject.Test 'Change this to whatever your form's name is
End Sub