Oluşturduğum "Gezinti Formu" içerisine hazırladığım "Raporlar"ımı koydum. "Gezinti Formu" içine tasarım sekmesinden "Tuş" oluşturarak tıklatıldığında kısmına olay yordamı olarak aşağıdaki kodu ekledim:
DoCmd.OpenReport "rpr_1", acViewPreview
DoCmd.RunCommand acCmdPrint
End Sub
Kod gayet güzel çalışıyor ancak sorunum şu: Gezinti formum içinde 15 tane raporum var ve her rapora tuş eklemem gerekiyor ki bu çok zahmetli bir iş. İstediğim şey ise "Gezinti Formu"ma tek bir yazdıma tuşu ekleyerek ekranıma gelen raporumu yazdırmasını istiyorum. Böylece her rapora tuş oluşturma derdinden kurtulmak istiyorum. Bunun bir yolu var mıdır? Yardımlarınız için şimdiden teşekkürler...
sayın dadadu,
bahsettiğiniz talebinize yönelik olarak,
elbette farklı yöntemlerde söz konusudur fakat alternatif bir öneri olması adına,şöyle bir denemede bulunabilirsiniz.
formunuzun üzerinde bir açılan kutu dahil edip kaynak olarak da rapor adlarını ekleyiniz.
bu işlem için,tek tek değer listesi olarak eklemektense daha pratik olması adına örnek anlatım olarak,şunları uygulayınız;
1) açılan kutunun adını Açılan Kutu 1 şeklinde bırakmamak adına,mesela,akutu1 diye değiştirebilirsiniz.
2) açılan kutunun Satır Kaynağı Türü'nü Tablo/Sorgu olarak işaretleyiniz.
3) açılan kutunun Satır Kaynağı'na aşağıdaki sorgu ifadesini yazınız.
Kod:
SELECT [MSysObjects].[Name] FROM MsysObjects WHERE (Left$([Name],1)<>"~") And ([MSysObjects].[Type])=-32764 ORDER BY [MSysObjects].[Name];
bu sorgu ifadesi,uygulamanızdaki raporların listelenmesini sağlamak içindir.bu kısıma yönelik olarak,yapmanız gerekenler bunlardır.ardından,yazdığınız kod üzerinde aşağıdaki gibi bir düzenlemede bulunarak;"rpr_1" ifadesinin yerine geçecek şekilde
Kod:
DoCmd.OpenReport Me.acilan_kutunun_adi, acViewPreview
kod ifadesini yazabilirsiniz.böylece,hangi rapor adı seçildiyse tek bir buton ile o raporun baskı işlemini gerçekleştirebilirsiniz.bilginize...iyi çalışmalar,saygılar.
İlginiz için teşekkürler. Birleşik metin kutusu oluşturarak içine raporlarımı tanıttım ve tuşa da belirtiğiniz gibi birleşik metin kutusunu tanıtarak yazdırma işlemini gerçekleştirdim. Ancak bunun daha basit bir yolu yok mudur? Yani zaten ben gezinti formum içinde raporumu görüyorum Tek bir tuşa basarak direkt olarak gezinti formum içinde gördüğüm raporumu yazdırmak istiyorum. Bunun daha kolay bir yöntemi yok mudur?
Verdiğiniz kodu birleşik metin kutum içinde satır kaynağına yazarak tüm raporlarımı birleşik metin kutum içinde görüyorum. Harikasınız. Bu daha kolay oldu. İlginiz, yardımınız için çok teşekkürler. Hakkınızı helal ediniz...