Neyse ben size kodları vereyim de buton tıklama eylemini düzeltin. Ama kodları inceleyerek öğrenmeye çalışın.Kod:
Private Sub yazdır_Click()
Dim x, sayac, say, tik As Integer
Dim cevap As String
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
cevap = MsgBox("Yazdırma işlemi tamamlandı. Sorun yoksa yazdırma seçimleriniz sıfırlansın mı?", vbYesNo)
If cevap = 6 Then
DoCmd.GoToRecord , , acFirst
For tik = 1 To say
If Me.Secim_Yapınız = -1 Then Me.Secim_Yapınız = 0
DoCmd.GoToRecord , , acNext
Next tik
Else: End If
err_hata:
End Sub