Ｐａｇｅ 82 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォームでのクエリの実行 kitten 02/10/28(月) 17:38 ┗Re:フォームでのクエリの実行 イケガミ 02/10/28(月) 17:49 ┗Re:フォームでのクエリの実行 kitten 02/10/28(月) 18:10 ┗Re:フォームでのクエリの実行 イケガミ 02/10/28(月) 18:20 ┗Re:フォームでのクエリの実行 kitten 02/10/28(月) 18:37 ─────────────────────────────────────── ■題名 ： フォームでのクエリの実行 ■名前 ： kitten ■日付 ： 02/10/28(月) 17:38 -------------------------------------------------------------------------
| 初めて質問いたします。Access超初心者ですがよろしくお願いします。 更新クエリを作成したのですが、作成した更新クエリをフォームで実行させたいと思っています。 フォームのコマンドボタンを押したら実行させたいのですが、クエリで更新されるデータが0件になるまでループさせて実行するようにしたいのです。 Do-Loopステートメントを使おうと思っているのですが、どのように書いたらいいのでしょうか？ 漠然とした質問で申し訳ありませんが、何か良い例を教えてくださいませんか？ |
| >更新クエリを作成したのですが、作成した更新クエリをフォームで実行させたいと思っています。 DoCmd.OpenQuery 〜 で実行できますよ。 >フォームのコマンドボタンを押したら実行させたいのですが、クエリで更新されるデータが0件になるまでループさせて実行するようにしたいのです。 何回も同じ更新クエリを実行しないと、いけないのでしょうか？ |
| 返信ありがとうございます！！ >>更新クエリを作成したのですが、作成した更新クエリをフォームで実行させたいと思っています。 >DoCmd.OpenQuery 〜 で実行できますよ。 そこまでは多分OKだと思います。 >>フォームのコマンドボタンを押したら実行させたいのですが、クエリで更新されるデータが0件になるまでループさせて実行するようにしたいのです。 >何回も同じ更新クエリを実行しないと、いけないのでしょうか？ 必要なんです･･･(T-T) |
| >>何回も同じ更新クエリを実行しないと、いけないのでしょうか？ > >必要なんです･･･(T-T) どんなクエリだろ？？ 更新クエリの更新対象レコードが表示される選択クエリを作れば できそうですが。。 選択クエリ名：選択 更新クエリ名：更新 Dim db As DAO.Database Dim strSQL1 As String Set db=Curretdb strSQL = "更新クエリのSQL文" Do Until DCount("*","選択")=0 db.Execute "更新" Loop でいけるかな？？ |
| 早急の返信ありがとうございます!! 出来そうな気がします。 ありがとうございました。 簡単なことでもまったくわかっていない初心者なので今後もよろしくお願いします。 |