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

SQL データ型
http://office.microsoft.com/ja-jp/access-help/HP001032248.aspx?redir=0

TEXT(4), INTEGER, SMALLINT, FLOAT, MONEY ・・・


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ