RecordSet c параметром глючит

Есть фукция типа
Function f1(tabl_name As String, pole_name As String)

Dim db As Database
Dim rs As Recordset
Dim param As String

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM " & tabl_name & " WHERE " & pole_name & " = 2")

param = rs![pole_name] //выдает ошибку!!!!! Элемента нет в смействе

End Sub
Как вынуть в переменную то что получилось в запросе???

param = rs(pole_name])

Ой... :(
param = rs(pole_name)

А если запрос ничего не вернёт? Ошибка будет: "Текущая запись отсуствует"

If Not rs.EOF Then param = rs(pole_name)

ошибка : Символ описания типа данных не соответствует описываему типу данных. И вообще rs(имя поля) это похоже на выхов функции

работает железно. Только что проверил.

Sub nnn() Dim rst As Recordset, qq As String qq = "AddressID" Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblAddress WHERE AddressID = 1;") qq = rst(qq) Debug.Print qq End Sub

Покажите новый вариант вашего кода.

Я понял! фишка в том что возвращаемое поле типа Memo что с ним делать фукцией CStr() не получается. Как быть.

Если я правильно понял, Вы хотите прочитать из произвольной таблицы, значение произвольного поля и вернуть его в вызывающую функцию?

Используйте Dlookup:

param = DLookup(pole_name, tabl_name, pole_name & "= 2")

А что находится в этом поле memo?

zam-ministra

Я понял! фишка в том что возвращаемое поле типа Memo что с ним делать фукцией CStr() не получается. Как быть.

Проверь соответствие типа данных которые учавствую как параметры запроса с типом данных поля по которому идут отборы. Согласуй и будет все ОК