Ufak bir örnek gönderirseniz daha rahat yardımcı oluruz.
(Ayrıca forum kuralları gereği örnek göndermelisiniz)
Rapora yazılması gereken örnek kodlar:
Kod:
Option Compare Database 'Use database order for string comparisons
Dim k, b As Integer
Private Sub Report_Open(Cancel As Integer)
k = 1
b = Forms![Kartela_Karti]![Miktar]
End Sub
Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
If b <> k Then
Me.NextRecord = False
k = k + 1
Exit Sub
End If
If b = k Then
Me.NextRecord = True
k = 1
Exit Sub
End If
End Sub