ник: osmor
для 2000 и выше
Public Function listFields(strNameTbl As String)
' выводит имена полей в указанной таблице или запросе
' запрос должет быть без параметров
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Set rst = New ADODB.Recordset
rst.Open "select * from " & strNameTbl, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
For Each fld In rst.Fields
Debug.Print fld.Name
Next
rst.Close
Set rst = Nothing
End Function
|
Для 97 для таблицы можно использовать
TableDef.fields
а для запросов:
QueryDef.Fields