フィールドが存在するか確認する。VBA/Access

Public Function isField(dbs As DAO.Database, tblname$, fldname$)
On Error GoTo LBL_Err
    Dim rs As DAO.Recordset
    Set rs = dbs.OpenRecordset("select " & fldname$ & " from " & tblname$)
    rs.Close
    isModTbl = True
    Exit Function
LBL_Err:
    isModTbl = False

End Function

[vba/access]DBの特定テーブル内に特定のフィールド名が存在するか確認する · GitHub