〜ページ単位でRecordsetにアクセスする方法〜#584ページ単位でRecordsetにアクセスする方法VBA通常、テーブルをRecordsetとして開いた場合、先頭から順番に各レコードをたどって行ったり、メソッドを使って特定のレコードをジャンプしたりします。いずれの場合も、レコードソースの全レコードが対象となります。全レコードではなく、たとえば10件ごとにレコードにアクセスしたいという場合もあります。そのような場合、先頭レコードから1〜10レコードを空読みし、11〜20レコードだけ処理するという方法もありますが、ADOのあるプロパティを利用すると、たとえば10件といった単位をひとつの”ページ”として、ページ単位でアクセスすることができます。それには、ADOのRecordsetオブジェクトの「PageSize」プロパティを利用します。これに任意の値を指定することで、1ページ当りのレコード件数を指定することができます。「AbsolutePage」プロパティにページ番号を指定することで、実際に読み込むページ番号を指定することができます。「PageSize」プロパティに「10」が指定されている場合、「AbsolutePage」プロパティを「3」とすることで、3ページ目にジャンプし、簡単に31〜40レコード目だけを読み取ることができます。「PageCount」プロパティの値を取得すると、全レコードが何ページ分になるかを確認することもできます。次の例は、tbl得意先テーブルより、引数に指定された”ページ番号”だけのレコード内容をイミディエイトウィンドウに出力するSubプロシージャの例です。1ページ当りのレコード件数は「5」としています。"最終ページを超えています。※このテーブルには51レコード、すなわち1ページ当り5レコードとした場合、11ページまであることになります。|この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。