LOOＰやFor文で出来ないでしょうか。

質問

いつもお世話になっております。

現在帳票出力のコーディングをしております。
帳票は８レコードで一枚で、
８レコード以下になると、罫線が印刷されないため、
ブランクのデータを作ることで対応しようと思っています。

そこでブランクを入れる処理についてなのですが、

データ件数が８の倍数まで処理をつづけたいのですが
どのように記述すればいいか思案に苦しんでおります。

Do Until KANRI_TANA_KENSU = 8 Or 16 Or 24 Or 32 Or 40 Or 48 Or 56 Or 64 Or 72

RS_BLANK.AddNew

RS_BLANK!区分 = "BLANK"

RS_BLANK.Update

Loop

とりあえず、一つのグループに３０件以上はないので数値を固定化させたのですが
勿論これではダメだというのは理解しているのですが。。。

イメージとしては
件数カウントしている数値を８で割り、その答えが
８の倍数でない場合は小数点が出ると思います。

要するに、整数というか小数点が出なくなるまで加算させるという条件が
できればいいのかなと思っているのですが
それをコーディングにするにはどうすれば。。。と思っている次第です。

他の方法でも結構ですので何か案が御座いましたら
ご教示いただけませんでしょうか。

回答No.1

FEX2053 · ベストアンサー

８の倍数でストップすればいいんでしょ？だったら

DATA/8 = INT(DATA/8)

こいつが成立すれば止めればいい、ってだけなんじゃ？

お礼

ありがとうございます。
教えて頂いたとおりで処理されました。

INT型だと小数点が切り捨てられるという視点ですね。
簡単なことでも気が付かなかったです。
もっと精進いたします。

回答No.7

山田 太郎（@f_a_007）

ページフッターに同じ位置に罫線を配置する手もあります。

Option Compare Database

Const MaxRow = 8
Dim RowCount As Integer

Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
　　RowCount = 0
End Sub

Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
　　If RowCount = MaxRow Then
　　　　RowCount = 0
　　　　Me.MoveLayout = False
　　　　Me.PrintSection = False
　　Else
　　　　RowCount = RowCount + 1
　　　　If RowCount < MaxRow Then
　　　　　　Me.NextRecord = False
　　　　　　Me.MoveLayout = True
　　　　Else
　　　　　　RowCount = 0
　　　　End If
　　End If
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　RowCount = RowCount + 1
End Sub

お礼

ありがとうございます。
とても興味深い内容でした。

レポートで制御できれば、データベースでブランクを作らずに済みますね。
次回是非ともこちらの方法も視野に入れていきたいと思います。

回答No.6

tkgoya

n の倍数を判定したい場合は剰余を計算する「Mod演算子」を使用します。
m が n の倍数なら、m ÷ n の余りは 0 になりますので、下記のようにします。

Do Until KANRI_TANA_KENSU Mod 8 = 0

---- 中略 ----

Loop

※但し、KANRI_TANA_KENSU が 0 の場合にも剰余は 0 になりますので注意が必要です。

参考URL：

http://www.geocities.jp/cbc_vbnet/kisuhen/enzanshi.html

お礼

なるほど、IF文で<>0を条件に入れてやれば
いけそうですね。

とてもシンプルなコードでわかりやすいです。

回答No.5

めとろいと（@naktak）

Do Until KANRI_TANA_KENSU Mod 8 = 0

でいいですね。

ただし、これは8件目でループを抜ける形になるので、
正しくは9かもしれません。
また、0から開始する場合は初回でループを抜けてしまう為、
宜しくありません。
（そこはロジックの書き方の問題）

お礼

ありがとうございます。
事前に条件文で絞り込んでこの処理を通せばクリアできそうです。

その辺はデバックしながら検証していきたいと思います。

回答No.4

MSZ006

＃３です。計算を誤りました。

レコード件数がXだとすると、
7-((X+7) mod 8) で追加すべき空白レコードの件数が出ます。
For～Nextで回せばどうでしょうか。

回答No.3

MSZ006

レコード件数がXだとすると、
((X+1) mod 8) -1 で追加すべき空白レコードの件数が出ます。
For～Nextで回せばどうでしょうか。

お礼

ありがとうございます。

訂正頂いた内容の物で一度検証してみたいと思います。

回答No.2

emsuja

KNRI_TANA_KENSU が整数なら

If KANRI_TANA_KENSU Mod 8 = 0 Then Exit Do

で Loop を抜け出せばいいのでは