Access VBA入門：改ページコントロールを使い指定行数で改ページ

Access VBAで行数を指定し改ページさせるには、詳細_Formatでカウントし、指定数になれば改ページコントロールを表示します。

実行順
1）カウント変数を設置します。
2）ページヘッダーセクション_Formatでカウント変数を初期化します。
3）詳細_Formatイベントが発生するたびに、カウント変数を＋1します。
　 指定行数になると、改ページコントロールを表示します。

10行で改ページした、印刷プレビューAccess画面

詳細セクションの上に、改ページコントロールを配置しています。

■ Access VBA 実行コード例

Option Compare Database
Option Explicit

Private rowcount As Long

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
    rowcount = 0
    Me!改ページ1.Visible = False
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    rowcount = rowcount + 1
        If rowcount > 10 Then
        Me!改ページ1.Visible = True
    Else
        Me!改ページ1.Visible = False
    End If
End Sub

関連する記事

改ページ コントロールの配置方法 Access レポートTips レポートのセクションの種類 レポートデザインで作成する VBAの変数 レポートにタイマーイベントが追加されている