スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　INSERT INTO テーブル名 
　　　VALUES(フィールド1の値,フィールド2の値,・・・);

INSERTステートメントを使用してテーブルにレコードを挿入します。VALUESキーワードの後のかっこ内には、新しいレコードのフィールドの値を「,」で区切って記述します。フィールドの値を記述する順番は、テーブルを作成したときに定義したフィールドの順で記述します。フィールドの値にNULL値を設定する場合は、「NULL」と記述します。
サンプルでは、まず［商品テーブル］テーブルを用意するサンプルを、コメントで紹介しています。その後が、［商品テーブル］テーブルにレコードを挿入するサンプルです。

●サンプル●
'テーブルを作成する
'Public Sub Sample()
'
'    Dim myDB As Database
'    Dim mySQL As String
'
'    'SQLステートメントを定義する
'    mySQL = "CREATE TABLE 商品テーブル " & _
'            "(商品コード NUMBER ,商品名 CHAR, 単価 NUMBER);"
'
'    'カレントデータベースを変数に代入する
'    Set myDB = CurrentDb
'    'SQLを実行する
'    myDB.Execute mySQL
'
'End Sub

'テーブルにレコードを挿入する
Public Sub Sample()

    Dim myDB As Database
    Dim mySQL1, mySQL2 As String

    'SQLステートメントを定義する
    mySQL1 = "INSERT INTO 商品テーブル VALUES" & _
            "(1001 ,'ストロベリー　アイスクリーム',150);"
    mySQL2 = "INSERT INTO 商品テーブル VALUES" & _
            "(1002 ,'チョコミント　アイスクリーム',NULL);"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLを実行する
    myDB.Execute mySQL1
    myDB.Execute mySQL2

End Sub