| スポンサードリンク |
INSERT INTO 追加先テーブル名 （追加先フィールド名） VALUES （追加する値）
テーブル内のフィールドを指定し、1レコードを追加します。
|
|
サンプルソフト
「T_アクセス」テーブルに入力されたアクセス数を追加登録します。
「アクセス数」に数値を入力し「登録」ボタンをクリックしてください。
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
If IsNull(Me!テキスト1) Then
MsgBox "データが入力されていません。"
Exit Sub
End If
SQL = "INSERT INTO T_アクセス (アクセス数) VALUES (" & Nz(Me!テキスト1, "") & ")"
CurrentDb.Execute SQL, dbFailOnError
End Sub
|
|
ダウンロード