Ｐａｇｅ 436 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼クエリで抽出したレコードを上からチェッ... なお 03/11/18(火) 11:08 ┗Re:クエリで抽出したレコードを上からチェッ... しのしの 03/11/18(火) 15:22 ┗Re:クエリで抽出したレコードを上からチェッ... なお 03/11/18(火) 16:47 ─────────────────────────────────────── ■題名 ： クエリで抽出したレコードを上からチェッ... ■名前 ： なお ■日付 ： 03/11/18(火) 11:08 -------------------------------------------------------------------------
| こんにちは。なおと言います。 今回、初めて質問させていただきます。 使用しているのはACCESS2000です。 フォーム上に、テーブルからクエリで抽出したレコードがずらっと表示されています。 この抽出されたレコードの１項目を上から順々に最後のレコードまで チェックしたいのです。 クエリで抽出されたレコード件数は取得できるので そのレコード分繰り返し処理を行えばいいのは、なんとなくわかるのですが チェックしたいレコードの位置付けの仕方がわかりません。 説明が下手で申し訳ないのですが、よろしくお願いします。 |
| なお さん 最初に、手元に何もないので、メソッドなど間違っている可能性があります。 必ずヘルプで確認してカスタマイズしてからご利用ください。 ご覧の皆さん 間違っていたら、ご指摘方よろしくお願いします。 >フォーム上に、テーブルからクエリで抽出したレコードがずらっと表示されています。 >この抽出されたレコードの１項目を上から順々に最後のレコードまで >チェックしたいのです。 そのクエリが該当フォームのレコードソースであれば、 フォームのRecordsetプロパティあるいは、recordSouceCloneプロパティから レコードセットが取得できます。 この場合はrecordSouceCloneが適当でないかと。 ------------------------ DAOに参照設定してください Dim drs As DAO.Recordset 'recordSetCloneってDAOでしたよね？ 'クローンの作成 Set drs = Me.RecordsetClone '一番前に移動する If drs.BOF = false then drs.MoveFirst end if '最後のレコードまでチェック do until drs.EOF = True '条件式これであってます？ 'ここでチェック Debug.print drs.Fields(チェックしたい項目のフィールド名）.value '次へ移動 drs.Movenext Loop drs.Close Set drs = Nothing |
| ▼しのしの さん： しのしのさん、お忙しいところありがとうございました。 おかげさまで、思い通りのチェックを行うことができました。 >do until drs.EOF = True '条件式これであってます？ Do Until drs.EOF だけでも良いみたいです。 本当にありがとうございました！ |