Microsoft Access 掲示板

SQLの実行方法 / 5

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

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の後は()が必要なのですね? 勉強不足ですみません。

通報 ...