如何從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