如何从Access VBA中的表中删除字段

Question

我有一个函数，我从我在MS Access中创建的表中删除指定的字段。 使用这个问题作为参考。 如何删除指定的字段？ 这是我到目前为止：

Private Function removeFieldsFromIIPM(tableName As String, fieldToDrop As String)

    Dim dbs As Database
    Dim field As field

    Set dbs = CurrentDb()
    Set field = dbs.TableDefs([tableName]).Fields(fieldToDrop)
    dbs.TableDefs([tableName]).Fields.Delete field.Name
    dbs.Close
    TableDefs.Refresh

End Function

Answer 1

如果要使用DAO TableDef方法删除字段，请使用Database.TableDefs(tableName).Fields.Delete fieldToDrop ，如@Lokusking 建议的那样 。

但是我认为执行DDL ALTER TABLE语句删除字段更容易：

Private Function removeFieldsFromIIPM(tableName As String, fieldToDrop As String)
    Dim strDrop As String

    strDrop = "ALTER TABLE [" & tableName & "] DROP COLUMN [" & fieldToDrop & "]"
    CurrentDb.Execute strDrop, dbFailOnError
End Function