[belajar-access] Re: SETTING MAXIMUM RECORD

[M. Aksan Kurdin]

berikan satu control page break di dalam section detail, letaknya
paling bawah lo ya dari deretan control yang ada dalam section detail.

Modul under report :

Option Compare Database
Option Explicit

Const MaxRecord As Integer = 10
Dim numBaris As Integer

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If FormatCount = 1 Then
        numBaris = numBaris + 1
        If numBaris > MaxRecord Then
            numBaris = 1
            Me.PageBreak6.Visible = True
        Else
            Me.PageBreak6.Visible = False
        End If
    End If
End Sub

Private Sub Report_Open(Cancel As Integer)
    numBaris = 1
End Sub


aksan kurdin




--- In belajar-access@yahoogroups.com, tenotan <[EMAIL PROTECTED]> wrote:
>
> Maaf  minta bantuannya, bgm caranya utk setting maximum record didlm 
> SECTION DETAIL REPORT.
>