Selamlar
Bir combobox oluşturun
adına mesela "RAPORSEC" yazın
Source için değer listesini seçin
ve ";" kullanarak şunları girin
1;Birinci rapor adı;2;İkinci rapor adı;3;Üçüncü rapor adı
kolon sayısına 2 girin
kolon genişliklerine 0;5 girin
Yaratıığınız butonun ( aslında butona
gerek yok combobox After Update özelliğine
bu kodu yazabilirsiniz ) OnClick özelliğine
kodu yazın
Kod:
Select Case RAPORSEC
Case 1
DoCmd.OpenReport "RAPORADI_1", acViewPreview, "", "", acNormal
Case 2
DoCmd.OpenReport "RAPORADI_2", acViewPreview, "", "", acNormal
Case 3
DoCmd.OpenReport "RAPORADI_3", acViewPreview, "", "", acNormal
End Select
Eğer seçimden sonra 1 den fazla rapor yazdırmak isterseniz
Case 1 için istediğiniz 2 raporu peşpeşe yazın mesela
DoCmd.OpenReport "RAPORADI_1", acViewPreview, "", "", acNormal
DoCmd.OpenReport "RAPORADI_2", acViewPreview, "", "", acNormal
gibi örnekleri çoğaltabilirsiniz
2. seçenek için ise
Ana rapor ve üzerinde sub Report oluşturun
3 tane sub report u design edin
Ana raporun açılışına subreport için farklı "SourceObject"
atamalarını yine ilk formdaki combobox daki değeri okutarak yapın
me.subreport.SourceObject="subreport_1" gibi
Ana rapor açılış özelliğine
Kod:
Select Case Forms!ILKFORM.Form!RAPORSEC
Case 1
me.subreport.SourceObject="subreport_1"
Case 2
me.subreport.SourceObject="subreport_2"
Case 3
me.subreport.SourceObject="subreport_3"
End Select
Kolay gelsin
