tom
2024/05/15 (水) 13:18:14
ddfe5@07fee
hirotonさん hatenaさん ありがとうございます。まずはベタな方法ですが下記で記述しました。
Dim strSQL As String
strSQL =
"UPDATE Q納品書未達F用Rs SET check = Yes " &
"WHERE 納品書入り日 Is Null AND (" & Me.Filter & ");"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.Refresh
これで一応更新処理はできました。次にDAOでもやってみようと思ってます。それで大変初歩的な質問なのですが先頭に下記を記述でいいでしょうか? これの後にアドバイス頂きましたコードを記述でいいのでしょうか?
'変数宣言
Dim db As DAO.Database
Dim rs As DAO.Recordset
'現在開いているデータベースに接続する。
Set db = CurrentDb
あとこれも初歩的な質問ですが "WHERE 納品書入り日 Is Null AND (" & Me.Filter & ");" のANDの後は()が必要なのですね? 勉強不足ですみません。
通報 ...