MyTetra Share
Делитесь знаниями!
Проверка на наличие поля в таблице
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru

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

Проверяет есть ли указанное поле в указанной таблице
Возвращает 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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования