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

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

Private Function IsFieldPresent(sTableName As String, sFieldName As String) As Boolean

'Проверка есть ли поле sFieldName в таблице sTableName

Dim objField As Field

'--------------------------------------------------------------------------

On Error GoTo IsFieldPresent_Err

Set objField = CurrentDb.TableDefs(sTableName).Fields(sFieldName)

IsFieldPresent = True

IsFieldPresent_Bye:

Set objField = Nothing

Exit Function

IsFieldPresent_Err:

Err.Clear

Resume IsFieldPresent_Bye

End Function