RumahAccess.com - Membuat Menu Ribbon dengan Image Buatan Sendiri

Yang biasa menggunakan Microsoft Office 2007 keatas, pastinya sudah familiar dengan menu Ribbon. Kita bisa membuat menu tersebut secara custom di menu File->Options->Customize Ribbon, atau dengan menggunakan script XML.

Bagi yang ingin membuat Ribbon menggunakan script XML pada Ms. Access, dengan memakai gambar/image buatan sendiri, silahkan ikuti langkah-langkahnya :

1. Siapkan file image (jpg/bmp) yang akan dipakai, tempatkan di sub folder Picture dalam folder file access.

2. Buat File Access, kemudian buat sebuah tabel dengan struktur seperti berikut , dan beri nama UsysRibbons.

3. Buka Text Editor, salin script XML dibawah ini.

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon startFromScratch="true">
    <tabs>
      <tab id="tab0" label="Menu Aplikasi" tag = "RibbonName:=RibbonKU" > 
        <group id="grp0" label="Master" tag = "RibbonName:=RibbonKU" > 
          <button id="btn0" size="large" label="Barang" getImage="OnGetImages" tag="barang.jpg" onAction="OnActionButton" />
          <button id="btn1" size="large" label="Customer" getImage="OnGetImages" tag="customer.jpg" onAction="OnActionButton" />
          <button id="btn2" size="large" label="Supplier" getImage="OnGetImages" tag="supplier.jpg" onAction="OnActionButton" />
        </group>
        <group id="grp1" label="Transaksi" tag = "RibbonName:=RibbonKU" > 
          <button id="btn3" size="large" label="Pembelian" getImage="OnGetImages"  tag="pembelian.bmp" onAction="OnActionButton" />
          <button id="btn4" size="large" label="Penjualan" getImage="OnGetImages" tag="penjualan.bmp" onAction="OnActionButton" />
        </group>
        <group id="grp2" label="Laporan" tag = "RibbonName:=RibbonKU" > 
          <button id="btn5" size="large" label="Pembelian" getImage="OnGetImages"  tag="lapbeli.jpg" onAction="OnActionButton" />
          <button id="btn6" size="large" label="Penjualan" getImage="OnGetImages" tag="lapjual.jpg" onAction="OnActionButton" />
          <button id="btn7" size="large" label="Persediaan" getImage="OnGetImages" tag="lapstok.jpg" onAction="OnActionButton" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

Keterangan script XML :
Access versi 2007 :

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

Access diatas versi 2007 :

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

startFromScratch, jika false->Menu bawaan tetap tampil, dan jika true-> maka menu bawaan tidak akan tampil.

getImage memanggil sub/procedure OnGetImages, dan pernyataan tag=[nama file gambar/image] yang akan ditampilkan ke Ribbon. Jika menggunakan image dari Ms Office imageMso=[nama image]. Ketika Button di klik, akan mengeksekusi sub/procedure OnActionButton.

Di OnActionButton bisa membuka Form, Function, Query, Report atau Macro sesuai dengan kebutuhan:
o Buka Form : DoCmd.OpenForm
o Buka Function : Eval ()
o Buku Query : DoCmd.OpenQuery
o Buka Report Preview : DoCmd.OpenReport , acViewPreview
o Buka Report Printer : DoCmd.OpenReport
o Buku Macro : DoCmd.RunMacro

Kemudian copy paste script tersebut diatas pada tabel UsysRibbon tadi, di kolom RibbonXML.

4. Buka Editor Visual Basic dengan cara tekan tombol Atl+F11, setelah terbuka klik menu Insert > Module dan ketikkan procedure/sub dan function dibawah ini:

Option Compare Database
Option Explicit

'Function yang berisi Folder Lokasi File Gambar
Function getPictPath() As String
On Error Resume Next
    getPictPath = CurrentProject.Path & "\Picture\"
End Function

'Procedure untuk menampilkan gambar/image ke button ribbon.
Sub OnGetImages(ByVal control As IRibbonControl, ByRef Image)
On Error Resume Next
    Set Image = LoadPicture(getPictPath & control.Tag)
End Sub

'Ketika tombol Button di klik
Sub OnActionButton(control As IRibbonControl)
On Error Resume Next
    Select Case control.id
        Case "btn0":
            DoCmd.OpenForm "frmMasterBarang", acNormal
        Case "btn1":
            DoCmd.OpenForm "frmMasterCustomer", acNormal
        Case "btn2":
            DoCmd.OpenForm "frmMasterSupplier", acNormal
        Case "btn3":
            DoCmd.OpenForm "frmTransBeli", acNormal
        Case "btn4":
            DoCmd.OpenForm "frmTransJual", acNormal
        Case "btn5":
            DoCmd.OpenForm "frmLapBeli", acNormal
        Case "btn6":
            DoCmd.OpenForm "frmLapJual", acNormal
        Case "btn7":
            DoCmd.OpenForm "frmLapStok", acNormal
    End Select
End Sub

Tekan tombol Ctrl+S, untuk menyimpan modul dan berinama basRibbonCallbacks.

Close file access kemudian buka kembali, menu belum tampil karena belum diaktifkan. Untuk mengaktifkannya, Pilih Menu File > Options > Current Database > Ribbon Name > Pilih RibbonKU. Klik tombol Ok.