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 success: function(dataReturned) { if(dataReturned === "ok") { document.location = "final.asp"; } },方法删除字段，请使用TableDef作为@Lokusking suggested。

但是我认为执行DDL ALTER TABLE statement以放弃该字段会更容易：

Database.TableDefs(tableName).Fields.Delete fieldToDrop

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

1 个答案: