Как удалить поле из таблицы в 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