TopPicLogo TopPicText

Проверка на наличие поля в таблице

Проверяет есть ли указанное поле в указанной таблице
Возвращает True или False
Использование:
IsFieldPresent("ИмяТаблицы", "ИмяПоля")

Function IsFieldPresent(MyTableName As String, MyFieldName As String) As Boolean
Dim MyField As Field
On Error GoTo IsFieldPresentErr
    Set MyField = CurrentDb.TableDefs(MyTableName).Fields(MyFieldName)
    IsFieldPresent = True
Exit Function

IsFieldPresentErr:
    Err.Clear
End Function
Назад ToTop
L.E. 16.11.2012
Рейтинг@Mail.ru