Tüm Raporların Kısayol Menü Çubuğunu Değiştirme

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?

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.

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

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