Raporda, detail kısmında nextrecord özelliği ile oynanarak da yapılabilir.
Örneği ekledim.
Kod:
Dim Basilan_Etiket_Sayisi As Integer
Private Sub Report_Open(Cancel As Integer)
Basilan_Etiket_Sayisi = 0
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Basilan_Etiket_Sayisi = Basilan_Etiket_Sayisi + 1
If Basilan_Etiket_Sayisi >= Forms!musteri!ADETAL Then
Me.NextRecord = True
Else
Me.NextRecord = False
End If
End Sub