AccessTr.neT
Tüm Raporların Kısayol Menü Çubuğunu Değiştirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tüm Raporların Kısayol Menü Çubuğunu Değiştirme (/konu-tum-raporlarin-kisayol-menu-cubugunu-degistirme.html)



Tüm Raporların Kısayol Menü Çubuğunu Değiştirme - access_delisi - 15/09/2011

Yeniden merhaba, bana göre büyük, size göre küçük bir problemim var

uygulamamda raporlarda kullanmak için RaporSag adında kısa yol menü çubuğu oluşturdum. raporları tasarım görünümünde açıp kısayol menü çubuğu adını RaporSag olarak değiştiriyorum. işte problemim burada başlıyor, çünkü 279 adet rapor var. tüm raporların kısayol menü çubuğu adını değiştirecek kod var mıdır?


Cvp: Tüm Raporların Kısayol Menü Çubuğunu Değiştirme - ozanakkaya - 15/09/2011

Veritabanına boş bir form ekle,

forma;
1 adet komut butonu,
Metin0 ve Metin1 isimlerinde iki adet metin kutusu ekle. (aslında metin kutularına gerek yok)

Komut butonunun tıklandığında olayına aşağıdaki kodu ekle.


Dim Access As AccessObject
Dim rpr As Report
Dim raporsayi As Integer
raporsayi = 1
For Each Access In CurrentProject.AllReports
DoCmd.OpenReport access.Name, acViewDesign, , , acHidden
Set rpr = Reports(access.Name)
rpr.ShortcutMenuBar = "RaporSag"
Metin0 = rpr.Name
Metin1 = raporsayi & "/" & CurrentProject.AllReports.Count
DoCmd.Close acReport, access.Name, acSaveYes
raporsayi = raporsayi + 1
Next access
MsgBox ("Tamamlandı.")

Tamamlandı mesaj kutusu çıktığında istediğiniz gerçekleşmiş olur. Kod üzerinde düzenleme yaparak kodu formlarda da kullanılabilirsiniz.




Cvp: Tüm Raporların Kısayol Menü Çubuğunu Değiştirme - access_delisi - 15/09/2011

çok teşekkür ederim. beni büyük bir zahmetden kurtardınız.


Cvp: Tüm Raporların Kısayol Menü Çubuğunu Değiştirme - ozanakkaya - 15/09/2011

Rica ederim. Konu taşınmıştır.