Kod:
Private Sub yazdır_Click()
Dim x, sayac, say As Integer
DoCmd.GoToRecord , , acFirst
On Error GoTo err_hata
say = DCount("[ÜrünSıraNo]", "Kitaplık")
For x = 1 To say
If Me.Secim_Yapınız = -1 Then
For sayac = 1 To Me.ÇıktıSayısı
If Me.okoli1 = True Then DoCmd.OpenReport "koli1", acViewNormal
If Me.okoli2 = True Then DoCmd.OpenReport "koli2", acViewNormal
If Me.okoli3 = True Then DoCmd.OpenReport "koli3", acViewNormal
Next sayac
End If
DoCmd.GoToRecord , , acNext
Next x
err_hata:
End Sub