Basit bir for next sorgusu işi görür.
Bir değişken açtım. Adı "say" Kaç kayıt olduğunu o biliyor:
Kod:
say = DCount("[ÜrünSıraNo]", "Kitaplık")
Sonra da bir sayaç tanımladım. O da for dönüşünü kontrol edecek.
Kod:
For sayac = 1 To say
"Adım adım "say" a kadar git" dedik.
Daha önce ilk kayda gitmiştik:
Kod:
DoCmd.GoToRecord , , acFirst
artık ilk kaydımızın onayını kaldıralım:
Şimdi diğer kayda gidelim:
Kod:
DoCmd.GoToRecord , , acNext
Ve bakalım kaç kere yaptık bu işi
Eğer kayıt sayısına ulaştıysak stop, ulaşmadıysak for satırından devam
Buyrun örneğiniz:
Bu arada söylemeyi unuttum. İşlem yazdırma anında iş bitince yapılıyor. Yani yazdırma butonu aynı zamanda "ok"leri temizliyor. Ama ben ayrı bir zamanda yapacağım dersen, kodlar bellidir. Onları ayırıp başka bir buton veya kod aracılığı ile onay kutusuna bağlayabilirsin.
Bu arada tek cevap vermediğim sorun kalmıştı onu da cevaplayayım
)) Normal üyeler bir kerede 3'ten fazla rep veremezler. Daha çok rep vermek isteyenler bu işi birden çok yaparak bunu sağlarlar. Siz öyle yapmıştınız mesela.
Onay Kutusu İle Rapor yazdırma.rar
(Dosya Boyutu: 220,68 KB | İndirme Sayısı: 28)
İnadına, ille de Accesstr.net...