ник: АлексейЕ
Использовал скрытый объект WizHook в Access'е.
Function ColumnExists(strNameTable As String, strNameColumn As String) As Boolean
Dim strNameColumns As String
WizHook.Key = 51488399
strNameColumns = WizHook.GetColumns(strNameTable)
ColumnExists = (InStr(1, ";" & strNameColumns, ";" & strNameColumn & ";") > 0)
End Function
|
Также, данной функцией можно определить наличие поля в запросе