ACCESSで空白行を追加

質問

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

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

　Set dbw = CurrentProject.Connection

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

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

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

回答No.1

noname#182251 · ベストアンサー

VBAはほとんど知らないのですが
空白行が望む位置に並ぶためのインデックスは何を使用しているのでしょうか？

お礼

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

回答No.4

ShowMeHow

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

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

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

お礼

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

回答No.3

Pakkun10

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

お礼

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

回答No.2

Dxak

[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法
http://support.microsoft.com/kb/404909/ja

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

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

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

お礼

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