AccessVBA：【DoCmd】テーブルの作成、プロパティの設定
◆DoCmdオブジェクトのRunSQLメソッドを利用しテーブルを作成する
DoCmdオブジェクトのRunSQLメソッドを使用して、テーブルを作成する構文としては以下のようになります。
|
1 |
DoCmd.RunSQL "CREATE TABLE [テーブル名]([フィールド名] データ型 制約, [フィールド名] データ型 制約...)" |
サンプルコードは以下のようになります。
フィールド名の数が増えると、メンテナンスの際に間違いやすくなるので、ここではxSQLとしてSQL文を組み立ててから実行しています。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Private Sub ファイルの作成_Click() Dim xSQL As String xSQL = "CREATE TABLE [T_一覧情報](" xSQL = xSQL & "[番号] Text(255) PRIMARY KEY" xSQL = xSQL & ", [名前] Text(255) NOT NULL" xSQL = xSQL & ", [科目] Text(255)" xSQL = xSQL & ",[点数] Long" xSQL = xSQL & ")" DoCmd.RunSQL xSQL MsgBox "完了" End Sub |
