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.
5. Close dulu file access, dan buka kembali. Sekarang menu ribbon akan tampil seperti gambar dibawah.
Selamat mencoba.
Jika anda kesulitan atau ada pertanyaan, silahkan isi pada Comment, atau bisa bertanya di WAG Access Comm++ (klik di sini untuk join WAG).
Materi berat penjelasan ringan … Thks bang….
MS Access emang keren Easy n Simply