プロシージャで実行する。
Dim Sql As String
Sql = "UPDATE tablename SET columnname = 値 WHERE 条件"
DoCmd.RunSQL SQL
実行前に確認するには、
Dim Sql As String
Dim Ret As Integer
Ret = MsgBox("UPDATEコマンドを実行しますか？", vbYesNo, "確認")
If Ret <> 6 Then
MsgBox ("中止しました。")
Exit Sub
End If
Sql = "UPDATE tablename SET columnname = 値 WHERE 条件"
DoCmd.RunSQL SQL
MsgBox ("終了しました。")
注）Subプロシージャに記述しています。
クエリーだけにたよるとクエリーの数が多くなりすぎるので、
プロシージャも使用したい。
【このカテゴリーの最新記事】
-
no image
-
no image
-
-
no image
