Açılan Menuden görüntülenecek raporu seçmek

1 2
23/12/2010, 23:17

volkan1

Çok basit halde ekteki dosyda açılan menüden görüntülenecek raporu seçip komut butonu ile raporu görüntülemek istiyorum. daha sonra kontrol-p ile yazdırıcam(kendi çalışmamda raporlar sorgudan geliyorancak bir şey değişmeyeceği kanatindeyim)

[attachment=11698]
23/12/2010, 23:31

alpeki99

Siz buton koyduğunuz için raporu açtırma kodlarını oraya yazdım. Ancak isterseniz açılan kutunun güncelleştirme sonrası olayına da yazabilirsiniz. Butonun kodlarında tıklanınca raporu önizleme olarak açtırdım. Eğer direkt yazdırsın isterseniz virgülden sonrasını silmeniz yeterli olacaktır.
23/12/2010, 23:36

benremix

Sn Volkan1
Sanırım Seruz hocamın örnek gibi istemiştiniz. Örneğinizi uyarladım.
Yapılanlar kısaca
Açılan kutunuzun satır kaynağına rapor isimleri ; ayrılarak yazıldı.
Güncelleştirmesonrasında olayına
Private Sub Açılan_Kutu4_AfterUpdate()
On Error Resume Next
DoCmd.OpenReport Açılan_Kutu4
End Sub

yazıldı.

Satırkaynak türü Değer Listesi seçildi.

Saygılar...
Pardon Alpeki hocam...
23/12/2010, 23:37

alpeki99

Estağfirullah abi çok sayıda cevap zenginliktir farklı bakış açısıdır.
23/12/2010, 23:38

volkan1

Hocam uygulamanız çok işime yaradı ancak uygulamada açılan kutuda tüm raporlar listeleniyor. Kendi çalışmamada çok sayıda raporum var bunlarda bir kaçını başka bir form içinde açılan menüde diğer raporlarıda başka bir form içindeki açılr menüden seçmek istersem kodta nasıl bir değişiklik yapmam lazım.Teşekkürler.
23/12/2010, 23:46

alpeki99

Buradaki kod hepsini listeler. Ancak siz bazılarını göstereyim bazılarını göstermeyeyim derseniz bu defa iki farklı yöntem önerebilirim.

1- Raporlarınıza isim verirken aynı yerde göstermek istediklerinize bir ön takı ekleyebilirsiniz. gelirler_ , giderler_ vb. isim verirsiniz. Açılan kutuya çekerken de rapor adının ön takısını okutursunuz.

2- Açılan kutunun özelliklerinde Veri sekmesinde yer alan Satır Kaynağı bölümüne raporlara verdiğiniz adları kendiniz yazabilirsiniz. "Tablo1";"Tablo2";"Tablo3" vb.
1 2