Microsoft Access 掲示板

SQLの実行方法 / 3

17 コメント
views
4 フォロー
3

やりたいことを整理すると下記のようなことですか。

帳票フォームのヘッダーに条件用の複数のテキストボックスがあり、その値によりフォームにフィルターをかけている。
VBAで抽出条件式を生成してそれをFilterプロパティに設定している。

表示されているレコードのうち、納品書入り日が未入力(Null)のレコードのチェックボックスにチェックを入れたいということですか。

SQLで更新するなら既に出ていますが、DoCmd.RunSQL か CurrentDb.Execute を使います。

下記でどうでしょう。

strSQL = _
    "UPDATE T納品書まだ分 SET チェック1 = Yes " & _
    "WHERE 納品書入り日 Is Null AND (" & Me.Filter & ");"
CurrentDb.Execute strSQL

フォームのレコードセットをループで回して直接更新してもいいです。(hirotonさんの回答)

通報 ...