Access VBA 質問スレ Part1

**デフォルトの名無しさん** · 2013/09/09(月) 13:20:44.56

>>154
マジレスしといてやるが、VBAでやるよりよっぽど>>153の方法の方が良いぞ
だがあえてVBAでやりたいなら
明細セクションの最初と最後に改ページコントロール(改ページ1,2)を配置して
Dim 行数 As Integer
Dim 前コード
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
    Me.改ページ1.Visible = False
    Me.改ページ2.Visible = False
    前コード = Me.フィールド5
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    If Me.フィールド5 <> 前コード Then
        Me.改ページ1.Visible = True
        行数 = 0
    Else
        Me.改ページ1.Visible = False
    End If
    前コード = Me.フィールド5
    行数 = 行数 + 1
    If 行数 > 4 Then
        Me.改ページ2.Visible = True
        行数 = 0
    Else
        Me.改ページ2.Visible = False
    End If
End Sub
こんな感じ。この例ではフィールド5が変わったら改ページな