VBA, MS Access MS Access в примерах

Проверка на наличие поля в наборе записей

Private Function IsFieldPresent(rs As DAO.Recordset, sFieldName As String) As Boolean
'es - 06.12.2022 v001 - Проверка на наличие поля в наборе записей
'--------------------------------------------------------------------------------------------------
'Аргументы:
'   rs           = Набор записей в котором проверяем
'   sFieldName   = Название поля которое проверяем
'--------------------------------------------------------------------------------------------------
Dim objField As Field

On Error GoTo IsFieldPresent_Err
    Set objField = rs.Fields(sFieldName)
    IsFieldPresent = True

IsFieldPresent_Bye:
    Set objField = Nothing
    Exit Function

IsFieldPresent_Err:
    Err.Clear
    Resume IsFieldPresent_Bye
End Function

Назад ToTop
L.E. 06.12.2022
Рейтинг@Mail.ru