ник: osmor
"читать про ADODB OpenSchema"
Dim rs As ADODB.Recordset
Set rs = CurrentProject.Connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, "tblOrder"))
With rs
Do While Not .EOF
Debug.Print !COLUMN_NAME, !Data_Type
.MoveNext
Loop
End With
|
Data_Type - числовое обозначение типа данных поля
http://msdn.microsoft.com/en-us/library/ms969745.aspx - здесь есть расшифровка правда она не совсем для ACCESS