hatena
hatena
2024/05/14 (火) 18:25:11
やりたいことを整理すると下記のようなことですか。
帳票フォームのヘッダーに条件用の複数のテキストボックスがあり、その値によりフォームにフィルターをかけている。
VBAで抽出条件式を生成してそれをFilterプロパティに設定している。
表示されているレコードのうち、納品書入り日が未入力(Null)のレコードのチェックボックスにチェックを入れたいということですか。
SQLで更新するなら既に出ていますが、DoCmd.RunSQL か CurrentDb.Execute を使います。
下記でどうでしょう。
strSQL = _
"UPDATE T納品書まだ分 SET チェック1 = Yes " & _
"WHERE 納品書入り日 Is Null AND (" & Me.Filter & ");"
CurrentDb.Execute strSQL
フォームのレコードセットをループで回して直接更新してもいいです。(hirotonさんの回答)
通報 ...