Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/09/2011 22:52
Konu Sahibi
accessdelisi
Yorumlar
3
Okunma
1956
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessdelisi

Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
A.... F.... C....
351
30/10/2008
27
-
-
15/10/2017,22:27
Çözüldü 
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

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:35
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

accessdelisi

Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
A.... F.... C....
351
30/10/2008
27
-
-
15/10/2017,22:27
Çözüldü 
çok teşekkür ederim. beni büyük bir zahmetden kurtardınız.


SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:35
Çözüldü 
Rica ederim. Konu taşınmıştır.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Windows 10'da Access Kısayol İkonu Hatası serkan1985 2 130 06/10/2017, 19:42 serkan1985
Çözüldü Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama mehmetb84 6 177 18/09/2017, 12:20 mehmetb84
Çözüldü Windows Görev Çubuğundaki Access Simgesini Değiştirme hulsen 4 442 01/06/2017, 01:56 ozanakkaya
Çözüldü Yapmış Olduğum Dosyanın Simgesini Değiştirme ? pelitt 9 628 10/05/2017, 10:35 atoz112
Çözüldü makro ile kısayol tuşlarını kullanmak ilhantarik 5 1.566 09/01/2017, 14:15 yturan

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.