ник: час
А если вот это?
http://msdatabase.ru/collectionfunctions.htm
Альтернатива DLookUp
Public Function SqlLookUp(sql)
Dim ar
On Error Resume Next
ar = CurrentProject.connection.Execute(sql).GetRows
SqlLookUp = ar(0, 0)
End Function
Вариант 2
Public Function SqlLookUp(sql)
On Error Resume Next
SqlLookUp = CurrentProject.Connection.Execute(sql).Fields(0)
End Function
Вызов функции из вычисляемого поля:
= SqlLookUp(" select a + b + c from mytable where id=" & [formID] )
Функция возвратит первое значение (первая строка и первое поле) из набора записей определяемого параметром SQL
|