ник: Bellerofont
только в построителе когда пытюсь вызвать эту функцию в MYzapros в дополнительном поле: Выражение1: TableName([MYzapros]), выборка считает MYzapros параметром и запрашивает его значение.
Аргумент же строка, поэтому должно быть Выражение1: TableName("MYzapros")
А модуль лучше такой:
Option Compare Database
Option Explicit
Private CurrentQuery As Object
Public Function TableName(ByVal QueryName As String)
If CurrentQuery Is Nothing Then
Set CurrentQuery = CurrentDb.QueryDefs(QueryName)
ElseIf StrComp(CurrentQuery.Name, QueryName, vbTextCompare) <> 0 Then
Set CurrentQuery = CurrentDb.QueryDefs(QueryName)
End If
TableName = CurrentQuery.Fields(0).SourceTable
End Function
|