我有一个函数,可以从我在 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
最佳答案
如果您想使用 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
关于ms-access - 如何从Access VBA中的表中删除字段,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38728028/