Ссылки на поля

[ЛюдмилаД]

Добрый день!
Есть таблица, одно из полей которой содержит имя поля другой таблицы. Как правильно написать ссылку?
Людмила

[AndVGri]

Добрый день

Как правильно написать ссылку?

Где?

[shanemac51]

имя поля другой таблицы
---или значение из некой ячейки другой таблицы

[ЛюдмилаД]

Ссылка в выражении, чтобы обратишься к полю в таблице. Имя поля в текстовой перемен ной

[ЛюдмилаД]

Поясняя. В таблице1 есть поле1. Вообще говоря таблица1 это описание правил расчета. В поле1 содержится имя поля другой таблицы, например, таблица2 , у которой есть поле2, поле3 и и.д. То есть содержимое поле1 "поле2". Требуется вычислить выражение с участием полей таблицы2. То есть воспользоваться таблицей1 для ссылок.

[Teslenko_EA]

Здравствуйте ЛюдмилаД.
Ваша задача может решаться с помощью подобной пользовательской функции:

Function readFromT2()
Const sQ = "select top 1 поле1 from таблица1"
Dim d As DAO.Database, r As DAO.Recordset, s$
Set d = CurrentDb
Set r = d.Recordsets
r.OpenRecordset sQ
If Not r.EOF Then s = r(0) & ""
r.Close
If Len(s) Then
    r.OpenRecordset ("slelect top 1 " + s + " from таблица2")
    If Not r.EOF Then readFromT2 = r(0)
    r.Close
End If
Set r = Nothing
Set d = Nothing
End Function

обращаться к ней можно или из VBA кода,
или использовать её в SQL конструкциях - select readFromT2(), ... from ...
или применять в качестве источника данных контролов (объектов форм/отчётов) - =readFromT2()

Евгений.

[AndVGri]

Если у вас существует поле связи между таблицами Таблица1 и Таблица2, то можно возвращать не только первое "случайное" значение из множества значений требуемого поля Таблица2.
Пусть Таблица1 состоит как минимум из таких полей (ИмяВнешенгоПоля, ПолеСвязи,...)
Таблица2 (ПолеСвязи, Поле1, Поле2, Поле3,...).
VBA-функция будет выглядеть так

'Предполагается, что поле связи LinkId числовое
'для текстового нужно задать кавычки
'для даты преобразование в строку формата #mm/dd/yyyy# с подстановкой без кавычек
Public Function ExternalFieldValue(ByVal LinkId As Variant, ByVal FieldName As String) As Variant
On Error GoTo errHandle
    ExternalFieldValue = Application.CurrentProject.Connection.Execute("Select [" & FieldName & "] From [Таблица2] Where [ПолеСвязи]=" & CStr(LinkId))(0).Value
Exit Function
errHandle:
    ExternalFieldValue = Null
End Function

SQL запрос с использованием функции будет выглядеть так

Select ExternalFieldValue([ПолеСвязи],[ИмяВнешнегоПоля]) From [Таблица1];