Terima kasih bung Aksan Kurdin, atas bimbingannya & saya udah coba, hasilnya ok.


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.
>

<<inline: ma_grp_160.gif>>

<<inline: nc3=5191955>>

Kirim email ke