抽出後のデータ移動 (ID:109322)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみませんSQLは分からないんです(^^; 予測ですけど、最初の処理で条件に当てはまる全てのレコードはすでに抽出されているって事ですよね？（Tableには抽出レコードが全部入ってるんでしょ？） 以下のように変更すると上手くいくような気が・・・ (ちなみにコンパイルチェックしてないので綴りミスはカンベソ） 'プロシージャーの外で静的変数を用意しましょう Private RecOfs as Long '抽出処理するとこに RecOfs= 0 'を追加 Private Sub Command8_Click() ’次へボタン ' Table.MoveNext ON ERROR GOTO NoRec '乱暴ですが・・・ Text1 = Table(0 + RecOfs) Text2 = Table(1 + RecOfs) Text3 = Table(2 + RecOfs) Text4 = Table(3 + RecOfs) RecOfs = RecOfs + 4 '１ページに表示するレコード分足す ON ERROR GOTO 0 EXIT SUB NoRec: ON ERROR GOTO 0 MsgBox "以上です",VbOkOnly END Sub