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