Skip to main content

AccessTr.neT


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

access_delisi
access_delisi
3
2870

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

Çözüldü #1
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?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
Çözüldü #2
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.

Cevapla
Çözüldü #3
çok teşekkür ederim. beni büyük bir zahmetden kurtardınız.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
Çözüldü #4
Rica ederim. Konu taşınmıştır.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task