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

あなたは@Lokusking suggestedとして、Database.TableDefs(tableName).Fields.Delete fieldToDropを使用し、あなたのフィールドをドロップするようにDAOにTableDefメソッドを使用したい場合：ここで私はこれまで持っているものです。

私はそれだけでフィールドをドロップするDDL ALTER TABLE statementを実行する方が簡単だと思うしかし：あなたはSQLでその列をドロップするだけではいけない理由

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