ник: Bellerofont
Если так уж надо функцией, то можно и функцией, которая в качестве аргумента получает имя запроса, например:
Public Function TableName(ByVal QueryName As String)
TableName = CurrentDb.QueryDefs(QueryName).Fields(0).SourceTable
End Function
|
Естественно, что если надо получить все таблицы, то можно перебрать все поля ...
Функция приведена лишь для примера, в реале нежелательно вызывать CurrentDb для каждой записи.