Sayfalar: 1 2 3 4 5 6 7 8
Ses soluk çıkmadığına göre sanırım halledemediniz
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
Mehmet Abi,
Eskişehirdeki işlerim dolayısı ile internete pek bakamadım abi. Çanakkaleye varınca size döneceğim. Abi bu yaz çok yoruldum ev satmak ardından almak ve ev değiştirme çok yordu beni. bir yandan da forumunuzu takip ediyorum.Normal olarak dönüşler gecikebiliyor.
Abi emeğinize çok teşekkür ederim. inanın ki çok memnun kaldım forum sitenizden bir denileni 2 yapmıyorsunuz herkese yardım ediyorsunuz. çok güzel ve sabırlı bir iş yapıyorsunuz. sizden daha da çok memnun kaldım. özellikle size çok teşekkür ederim.
İnşallah yeni konu başlıklarında görüşmek ümidiyle hoşcakalın Mehmet Abi....
Rica ederim. Sitemizin amacı da bu değil mi zaten. Görüşmek ümidiyle işlerinizde başarılar dilerim.
Mehmet Abi,
Örneğimi denedim ama sorunlar oluşuyor.
1 sorun:1 nolu kaydı kopya sayısını 1 girdiğimde rapor1 deki tüm kayıtları yazdırıyor. ama benim istediğim seçili kayıtları istenilen kopya sayısınca Rapor1, rapor2, rapor3 içinden seçili kayıtları yazdırsın.
2. sorun: kayıtları 1. kez seçiyorum yazdır diyorum çalışıyor ama 2. ve sonraki yazdır butonuna tıklamamda yazdır butonu yazdırma işlemi tamamlandı seçim sıfırlansın mı? diyor ama hiçbir kayıt seçili değilken yapıyor bunu. bunun yerine seçili kayıt yok hatırlatması yazdırsa daha güzel olacak.
Örneğin bu hataları da içeren son halini yükler misiniz? Çünkü bayaa bir ilaveler olmuş sanırım çalışmaya. Mutlaka çakışan bit komut oluşmuştur. Yaptığımızda güzel çalışıyordu.
Abi örneği yükleyemedim ama 1 kaydı seçtiğimde rapor1 seçili ise rapor1 in içindeki tüm kayıtları yazdırıyor. benim istediğim sadece seçili kaydı işaretli raporlardan çeksin alsın tümünü yazdırmasın.
![[Resim: do.php?img=4031]](https://accesstr.net/resim/do.php?img=4031)
abi sorunum bu kodlarda ama neresinde bilemedim. ....normal" den sonraki kısımları ekledim
Sayfalar: 1 2 3 4 5 6 7 8