Получение результата запроса в переменную integer

[Di_sol]

Здравствуйте!
В таблице есть поле типа integer. С помощью какого запроса можно получить его в переменную?

[gluk_fm]

Что таблица с одним полем и одной строчкой?

set t = openrecordset(запрос)

p = t![имя столбца]

t.movefirst 'первая строка
Do Until t.EOF

t.movenext ' следующая строка
loop

[Di_sol]

нет, в таблице много полей. мне в переменную нужно записать что-то типа
"SELECT salary FROM worker WHERE id = 4"
Результат вернет одно значение

[Woodlin]

Di_sol, Вам же gluk_fm дал направление. В открываемый рекордсет подставляйте свой запрос, и обращайтесь к нужному полю рекордсета по имени

t.movefirst 'первая строка
Do Until t.EOF

t.movenext ' следующая строка
loop

-не пригодится, нужная запись извлекается запросом

Кстати можно использовать DlookUp, но у этой функции есть ограничение по количеству записей в таблице, точное количество не помню, посмотрите в справке.

[Teslenko_EA]

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

Function FieldValue(i As Long) As Integer
Const sQ = "SELECT salary FROM worker WHERE id ="
Dim v
Set v = CurrentProject.Connection.Execute(sQ & i)
If Not v.EOF Then v = v.Fields(0)
End Function

обратившись к ней подобным образом:

Sub Procedure1()
Dim v

v = FieldValue(4)

End Sub

Евгений.

[Di_sol]

Спасибо всем, сейчас реализую!