Может кто-нибудь сказать мне, как проверить, существует ли столбец в таблице доступа

Question

Может кто-нибудь сказать мне, как проверить, существует ли столбец в таблице из отдельной базы данных доступа, но локально на компьютере?После того, как я проверю, существует ли он, я хочу добавить столбец.Я пока не нахожу здесь правильных ответов.

Answer 1

Вы даже не удосужились попробовать что-нибудь, но это легко, так что здесь есть халява.Как правило, халява требует жертв бутербродов и кофе.Добро пожаловать

Function FindColumn(strTableName As String, strColumnName As String) As Boolean
    Dim db As Database
    Set db = DBEngine.OpenDatabase("unc path to your database")
    On Error Resume Next
    Set fld = db.TableDefs(strTableName).Fields(strColumnName)
    If Err = 0 Then FindColumn = True
    Set fld = Nothing       
    db.Close
    Set db = Nothing
End Function