Здравствуйте,
на форме: Формы![ГлавнаяФорма]![ПодчиненнаяФорма] RecordSource задан, после применения фильтра RecordSource меняется. Как получить рекордсет с фильтром?

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    Dim a As String
    a = Me.RecordSource
    Debug.Print a
End Sub

Если так, то RecordSource как при загрузке
Как получить данные RecordSource в данный момент с фильтром?

http://www.sql.ru/forum/1105822/me-recordsource-podchinennoy-formy-posle-filtra