| |
前回の訂正です。
前回のSQLだと、20件ちょうどを出力するとき、常用顧客が20件出力されてしまいます。
SELECT 0 AS Type, Q_宛名.* FROM Q_宛名
UNION ALL
SELECT 1 AS Type, T_常用顧客.* FROM T_常用顧客, T_連番
WHERE T_連番.連番 > (DCount("*","Q_宛名")-1) Mod 20 + 1;
案2
レポートの「並べ替え/グループ化の設定」で、
フィールド/式 に =1 という固定値の式を設定します。
グループフッターを「はい」にして表示させます。
グループフッターは詳細セクションと同じサイズにして、
常用顧客の宛名をラベルで配置します。
テキストボックスを配置して、
コントロールソース =Count(*)
可視 いいえ
名前 txt件数
グループフッターのフォーマット時、印刷時のコードを下記のように
記述します。
Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
If Me.txt件数 Mod 20 = 0 Then Cancel = True
End Sub
Private Sub グループフッター0_Print(Cancel As Integer, PrintCount As Integer)
If (Me.txt件数 Mod 20) + PrintCount < 20 Then
Me.NextRecord = False
End If
End Sub
|
|
hatena
- 08/2/7(木) 11:41 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
