MyTetra Share
Делитесь знаниями!
Проверка на наличие поля в таблице
18.07.2018
20:03
Раздел: 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
Яндекс индекс цитирования