ACCESSで空白行を追加

ACCESSでレポートの改ページの位置を調整するために
印刷用のDB作成時にデータの間に必要な行だけ
空白行を挿入しています。

下記のような要領で挿入しているのですが、うまく空白行が入りません。

　Set dbw = CurrentProject.Connection

　For intIdx = 1 To intCount
　　　dbw.Execute strSQL
　Next intIdx
　dbw.Close
　Set dbw = Nothing

動作も不安定で毎回、空白行が多く入ったり少なく入ったりするので、
原因が特定できません。

解決策をご存知の方、教えて下さい。
よろしくお願いします。

No.1 ベストアンサー 回答者： fuuten_no_neko 回答日時： 2009/02/24 15:27

VBAはほとんど知らないのですが

空白行が望む位置に並ぶためのインデックスは何を使用しているのでしょうか？

この回答へのお礼

インデックスをつけていませんでした。
空白行が望む位置にくるようにレコードに行カウントを持たせて
インデックスに使用したら、希望通りに出力されました。
お礼が遅くなってしまいましたが、ありがとうございました。
とても助かりました。

お礼日時：2009/03/15 13:39

No.4 回答者： ShowMeHow 回答日時： 2009/02/27 13:23

問題のありかの可能性としては

1.空白行を追加する場所が間違っている？
（ANo.1の方がおっしゃっておられること）
strSQLの内容を詳しく見てみる必要があります。

2.空白行の追加方法に問題があるのではなく、空白行の計算方法に問題がある？
（ANo3の方がおっしゃっておられること）
intCountの計算方法があっているか確認する必要があります。

どちらにしても、提供されている情報だけでは原因を特定できません。

この回答へのお礼

お礼が遅くなってしまいましたが、希望の位置に空白行を並ばせるためのインデックスを設定することで解決できました。
私の質問の仕方が悪くて、説明不足にも関わらず、ご回答いただき、ありがとうございました。

お礼日時：2009/03/15 13:49

No.3 回答者： Pakkun10 回答日時： 2009/02/24 16:39

エスパーすると、intCountを求める式が間違ってるんだと思います。

この回答へのお礼

お礼が遅くなってしまいましたが、希望の位置に空白行を並ばせるためのインデックスを設定することで解決できました。
私の質問の仕方が悪くて、説明不足にも関わらず、ご回答いただき、ありがとうございました。

お礼日時：2009/03/15 13:48

No.2 回答者： Dxak 回答日時： 2009/02/24 15:38

[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法

http://support.microsoft.com/kb/404909/ja

普通は、こんな感じ
空白のレコードがあるかのように見せかけるパターン

で、質問の方は、何が障害になってるのか？よく判りません
（変数の中身が、提示されていないのと、レポートの構成などが判らないため・・・）

strSQLの中身で、ソートしなおすインデックス等、基準が無くて、予想したところ意外に、空白レコードが挿入されてるのが、現状ではないかと、想像するのですが・・・あくまで、想像の話ね

この回答へのお礼

予想された通り、インデックスが原因でした。
お礼が遅くなってしまいましたが、説明不足にも関わらず、
ご回答いただきありがとうございました。

お礼日時：2009/03/15 13:41