Public Function TestField(Byval TableName as String, Byval FieldName as String) As Boolean
Dim ret as Boolean
Dim dbs As Database, tdf As TableDef, fld As Field

 ret = False

 Set dbs = CurrentDb
 Set tdf = dbs.TableDefs(TableName)

 For Each fld In tdf.Fields
  ret = ret Or (fld.Name = FieldName)
 Next

 Set tdf = Nothing
 Set dbs = Nothing

 TestField = ret
End Function

Dim myrst As Recordset
On Error GoTo no_field
Set myrst = CurrentDb.OpenRecordset("select field_name from table_name")
myrst.Close
Exit ...
no_field:

WizHook.Key =  51488399 
If InStr(WizHook.GetColumns("ИмяТаблицы"), "ИмяПоля") >  0  Then
  MsgBox "Есть"
Else
  MsgBox "Нет"
End If

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы