AccessのVBAでSQLのUPDATE SETを使いフィールド値の更新｜フォーム実行例
値の更新 ： UPDATE SET
UPDATE テーブル名 SET フィールド名=値
値はフィールドの型に対応しないとエラーになります。
例えば、数値型に文字を代入しようとすることです。
実行前に値のチェックをするか、ON ERRORで対処する必要があります
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
If IsNull(Me!テキスト1) Then
MsgBox "更新する値を入力してください。"
Exit Sub
End If
SQL = "UPDATE T_測定 SET 測定値=" & Me!テキスト1
CurrentDb.Execute SQL, dbFailOnError
End Sub
サンプルソフトのダウンロード
値はフィールドの型に対応しないとエラーになります。
例えば、数値型に文字を代入しようとすることです。
実行前に値のチェックをするか、ON ERRORで対処する必要があります
サンプルソフト
「更新する値」をテキストボックスに入力し、「実行」ボタンをクリックすると、「T_測定」テーブルの全レコードの測定値が入力値に更新されます。
測定値フィールドは長整数型なので、数値を入力する必要があります。
もし文字を入力し実行すると、「実行時エラー '3661' パラメータが少なすぎます。1を指定ください」のエラーメッセージダイアログが表示されます。
「更新する値」をテキストボックスに入力し、「実行」ボタンをクリックすると、「T_測定」テーブルの全レコードの測定値が入力値に更新されます。
測定値フィールドは長整数型なので、数値を入力する必要があります。
もし文字を入力し実行すると、「実行時エラー '3661' パラメータが少なすぎます。1を指定ください」のエラーメッセージダイアログが表示されます。
Private Sub コマンド8_Click()
Dim SQL As String
If IsNull(Me!テキスト1) Then
MsgBox "更新する値を入力してください。"
Exit Sub
End If
SQL = "UPDATE T_測定 SET 測定値=" & Me!テキスト1
CurrentDb.Execute SQL, dbFailOnError
End Sub
サンプルソフトのダウンロード
Homeへ 
SQL TipsへCopyright(C) FeedSoft