Ribbon Menü Hazırlama | Normal Tablo Kullanarak Ribbon Yükleme |

Taruz · 21-01-2012, 21:10

Merhaba..

Bir önceki bölümde sistem tablosu oluşturup ribbon (şerit) menülerimizi nasıl yükleyeceğimizi işlemiştik.. Bu bölümde de Sistem tablosu olmayan her hangi bir tablo kullanarak bu işlemi yapacağız..

Önce tablomuzu oluşturalım..:

Tablo Adı..: TabloAdınız

Alan Adı..: ID Veri Türü..: Otomatik Sayı
Alan Adı..: RibbonName Veri Türü..: Metin
Alan Adı..: RibbonXML Veri Türü..: Not

Tablo adını dilediğiniz şekilde belirleyebilirsiniz.. Bu tablo içerisinde birden fazla menü saklayabilirsiniz..

Sonrasında yeni bir modül sayfası açıp bu fonksiyonu yapıştırıyoruz..:

Visual Basic
Public Function RibbonYukle()
 
On Error GoTo hata
Dim db     As DAO.Database
Set db = Application.CurrentDb
 
Dim rs     As DAO.Recordset
Set rs = db.OpenRecordset("tabloadiniz")    'Tablo adını değiştirmeyi unutmayınız..
 
Do Until rs.EOF
    Application.LoadCustomUI _
            rs("RibbonName").Value, rs("RibbonXML").Value
    rs.MoveNext
Loop
 
hata_Exit:
On Error Resume Next
rs.Close
Set rs = Nothing
Set db = Nothing
Exit Function
 
hata:
Select Case Err
    Case 32609
 
    Case Else
        MsgBox "Error: " & Err.Number & vbCrLf & _
               Err.Description, vbCritical, _
               "Error", Err.HelpFile, Err.HelpContext
End Select
Resume hata_Exit
 
End Function

Şimdi yeni bir makro oluşturalım ve Kod Çalıştır'ı seçelim.. İşlev Adı kısmına da RibbonYukle() yazalım..

Bu makroyu autoexec adıyla kaydedelim.. Bu isimde makronuz varsa yukarıdaki makro işlemlerini mevcut makro içerisine ilave olarak yapabilirsiniz..:

[Resim: ribbon5.jpg]

Yüklenen menüleri kullanmak için; Seçenekler / Geçerli Veritabanı / Şerit Adı kutusundan seçim yapabilirsiniz..

[Resim: ribbon3.jpg]

Dosyayı yeniden başlattığınızda buradan şeçim yaptığınız menü ile açılacaktır.. Tabloda b,rden çok ribbon menünüz varsa ve bazı formlarda bunları da kullanmak istiyorsanız formunuzun Seçenekler / Diğer / Şerit Adı kısmını kullanarak o forma ait farklı bir menü ekleyebilirsiniz..

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Ribbon Menü Sihirbazı (Ribbon Menu Creator)	Taruz	141	73.976	17-10-2025, 20:06 Son Mesaj: tanyeri
	Ribbon Menü Örneği 1 \| Form ve Rapor Olayları \|	Taruz	29	14.461	30-11-2022, 13:55 Son Mesaj: merdal
	Ribbon Menü Örneği 2 \| Kontolleri Gizleme veya Pasif Yapma \|	Taruz	2	4.867	28-12-2019, 23:00 Son Mesaj: adnan
	Excel \| Office Menü Sihirbazı (Backstage View Creator)	Taruz	2	4.421	23-01-2016, 23:34 Son Mesaj: nzrysldg
	Ribbon Menü 2007 \| Office Menüsü Seçenekleri \|	Taruz	0	3.394	24-03-2012, 18:05 Son Mesaj: Taruz
	Ribbon Menü 2010 \| Office Menüsü (Backstage View) Seçenekleri \|	Taruz	0	3.526	24-03-2012, 17:44 Son Mesaj: Taruz
	Ribbon Menü Hazırlama \| Olaylar: DropDown - onAction \|	Taruz	0	2.825	04-02-2012, 16:11 Son Mesaj: Taruz
	Ribbon Menü Hazırlama \| Olaylar: ComboBox - onChange \|	Taruz	0	2.766	04-02-2012, 15:46 Son Mesaj: Taruz

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL