フィールドの追加

Sub ALTER_TABLE_ADD()
    Dim StrSQL As String
    StrSQL = "ALTER TABLE 商品テーブル ADD COLUMN 料金 MONEY;"
    CurrentDb.QueryDefs("Qクエリ").SQL = StrSQL
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Qクエリ"
    DoCmd.SetWarnings True
End Sub


フィールドの削除

Sub ALTER_TABLE_DROP()
    Dim StrSQL As String
    StrSQL = "ALTER TABLE 商品テーブル DROP COLUMN 料金;"
    CurrentDb.QueryDefs("Qクエリ").SQL = StrSQL
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Qクエリ"
    DoCmd.SetWarnings True
End Sub


フィールド属性の変更

Sub ALTER_TABLE_ALTER()
    Dim StrSQL As String
    StrSQL = "ALTER TABLE 商品テーブル ALTER COLUMN 料金 TEXT(6);"
    CurrentDb.QueryDefs("Qクエリ").SQL = StrSQL
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Qクエリ"
    DoCmd.SetWarnings True
End Sub


フィールドの削除

Sub ALTER_TABLE_DROP_RUN()
    Dim StrSQL As String
    StrSQL = "ALTER TABLE 商品テーブル DROP COLUMN 料金;"
    DoCmd.SetWarnings False
    DoCmd.RunSQL StrSQL
    DoCmd.SetWarnings True
End Sub

※RunSQLメソッドはアクションクエリ(更新や削除など)のみ。



SQL データ型
TEXT(4), INTEGER, SMALLINT, FLOAT, MONEY ・・・