Access2000のレポートで条件付改ページの方法を教えて下さい。

質問

Access2000で「所属コード」と「社員氏名」が入っているレポートを作りました。
枠線もつけてひととおりできたのですが、改ページの方法がよくわかりません。
以下の条件で改ページを行なうにはどうしたらよいのでしょうか?
データは、所属コード毎にまとまっていて、さらに同じ所属コードのなかでは社員氏名(50音順)になっています。空白のデータ行はありません。

条件
1.1ページ10人で改ページをする。
2.所属コードが変わったら、10人に満たなくても改ページする。
3.所属コードが変わって改ページをする場合、空の行を補って1ページは常に10人分とする。
以上のような条件を満たす改ページ設定はできるのでしょうか?

回答No.3

klub · ベストアンサー

なんかカッコ悪いコードになっちゃいましたが
勘弁してください。

DoCmd.RunSQL "DELETE W_印刷用.* FROM W_印刷用;"

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim RS2 As ADODB.Recordset
Dim 件数 As Integer
Dim 空白数 As Integer
Dim 退避所属コード As Long
Dim 番号 As Long

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset
Set RS2 = New ADODB.Recordset

RS.Open "T_社員", CN, adOpenKeyset, adLockOptimistic
RS2.Open "W_印刷用", CN, adOpenKeyset, adLockOptimistic

RS.MoveFirst
番号 = 1
件数 = 1

Do Until RS.EOF

退避所属コード = RS!所属コード

Do Until 退避所属コード <> RS!所属コード
RS2.AddNew
RS2!番号 = 番号
RS2!社員名 = RS!社員名
RS2!所属コード = RS!所属コード
RS2.Update
RS.MoveNext
If RS.EOF Then Exit Do
番号 = 番号 + 1
件数 = 件数 + 1
Loop

If 件数 > 10 Then
件数 = (件数 Mod 10)
End If

空白数 = 10 - 件数

番号 = 番号 + 1
For I = 1 To 空白数
RS2.AddNew
RS2!番号 = 番号
RS2!所属コード = 退避所属コード
RS2.Update
番号 = 番号 + 1
Next I

件数 = 1

Loop

RS.Close
RS2.Close
CN.Close

テーブル
・T_社員
　社員名　テキスト型
　所属コード　数値型（長整数）
・W_印刷用
　番号　数値型（長整数）
　社員名　テキスト型
　所属コード　数値型（長整数）

で作成しました。

もっと簡潔にできるとは思いますが
そこはお願いします。
もちろんレポートでグループヘッダーを所属コードで
作成しておかないとこのままW_印刷用をそのまま印刷しても、別所属コードで改ページされません。
（１ページ１０件ぎりぎりで作成しておけば別ですが）

お礼

ありがとうございます。とっても我儘なお願いにもかかわらず、コードを公開していただいて、とっても助かります。
このコードを参考にがんばってみます。本当にありがとうございます。