ДИНАМИЧЕСКИЙ ЗАПРОС НЕ ПРЕДЛАГАТЬ!!!!
В конструкторе query, например простой (select) сформировать название поя, которое нужно вывести. Например, есть поля Qty1, Qty2, Qty3. Нужно вывести поле "Qty" + CStr(номер)
Я пробую через :

Public Function qqq(PN As Integer) As Field
Dim MyDb As Database
Dim FN As String
Set MyDb = CurrentDb
FN = "Qty" + CStr(PN)
Set qqq = MyDb.TableDefs("Table").Fields(FN)
End Function

Выдается ошибка.
Че не так? Или какие еще есть предложения?

paparome RurkДИНАМИЧЕСКИЙ ЗАПРОС НЕ ПРЕДЛАГАТЬ!!!!
В конструкторе query, например простой (select) сформировать название поя, которое нужно вывести. Например, есть поля Qty1, Qty2, Qty3. Нужно вывести поле "Qty" + CStr(номер)
Я пробую через :

Public Function qqq(PN As Integer) As Field
Dim MyDb As Database
Dim FN As String
Set MyDb = CurrentDb
FN = "Qty" + CStr(PN)
Set qqq = MyDb.TableDefs("Table").Fields(FN)
End Function

Выдается ошибка.
Че не так? Или какие еще есть предложения?

Машу вать!!!
А кто набор данных открывать будет? Дядя Степа?
Через коллекцию TableDefs Вы получили объект типа таблица, а не ее данные!!!

+ И ваще есть функция DLookUp() - очень полезная в таких случаях
(Подробности в хелпе)

В общем написал так:
Public Function qqq(PN As Integer) As Field
Dim rs As DAO.Recordset
Dim FN As String
FN = "Qty" + CStr(PN)
Set rs = CurrentDb.TableDefs("Table").OpenRecordset
Set qqq = rs(FN)
rs.Close
Set rs = Nothing
End Function

Пишет - Object invalid or no longer set

А DLookUp - медленно работает

Public Function qqq(PN As Integer) As Field
Dim rs As DAO.Recordset
Dim FN As String
FN = "Qty" + CStr(PN)
Set rs = CurrentDb.OpenRecordset("Table")
Set qqq = rs(FN)
rs.Close
Set rs = Nothing
End Function



Public Sub www()
Dim f As Field
Set f = qqq(2)
End Sub


Так вот в www - f - object invalid or no longer set

Serge Gavrilov Rurk ...В общем написал так:
Public Function qqq(PN As Integer) As Field
Dim rs As DAO.Recordset
Dim FN As String
FN = "Qty" + CStr(PN)
Set rs = CurrentDb.TableDefs("Table").OpenRecordset
Set qqq = rs(FN)
rs.Close
Set rs = Nothing
End Function

Пишет - Object invalid or no longer set

Т.е. Recordset (или Database) закрыли, а поле хотите чтоб осталось?

Ага, посоветовали, ща попробую

Shuhardв Acc97 - работает
вероятно речь идет о 2000/XP/2003 - тогда надо подключить DAO + писать DAO.Field
чтобы не перепутать ADODB.Field и DAO.Field


Да я вообще тока Dao и подключил

Serge Gavrilov Rurk ...В общем написал так:
Public Function qqq(PN As Integer) As Field
Dim rs As DAO.Recordset
Dim FN As String
FN = "Qty" + CStr(PN)
Set rs = CurrentDb.TableDefs("Table").OpenRecordset
Set qqq = rs(FN)
rs.Close
Set rs = Nothing
End Function

Пишет - Object invalid or no longer set

Т.е. Recordset (или Database) закрыли, а поле хотите чтоб осталось?

Public Function qqq(PN As Integer) As Field
Dim rs As DAO.Recordset
Dim FN As String
FN = "Qty" + CStr(PN)
Set rs = CurrentDb.OpenRecordset("Òîâàð")
Set qqq = rs(FN)
End Function



Public Sub www()
Dim f As Field
Set f = qqq(2)
End Sub

все равно Field не вернул

Все! Отбой!
Спасибо за посты.
Объявил рекордсет глобальным и функция вернула Field
Задача то собственно и сводилась к тому чтобы проверить возврат из ф-ии Field
Ну а если кому похохотать хочется - хотел проверить что будет если я в конструкторе запросов вставлю ф-ю возвращающую поле