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

Question

我有一个函数，可以从我在 MS Access 中创建的表中删除指定的字段。用过this供引用的问题。我怎样才能删除指定的字段？这是我目前所拥有的:

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 suggested .

但是我认为执行 DDL 更容易 ALTER TABLE statement删除字段:

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