Subscribe to Comments

SELAMAT DATANG *** SUGENG RAWUH *** WILUJEUNG SUMPING *** MARHABAN *** HORAS *** WELCOME ***
“MASA DEPAN BUKANLAH SUATU TEMPAT, MELAINKAN SUATU KEADAAN YANG SEDANG KITA CIPTAKAN. MULAILAH MENCIPTAKAN IMPIAN MASA DEPAN MELALUI HATI, PIKIRAN DAN KEMUDIAN MEWUJUDKANNYA MELALUI USAHA KERAS DAN CERDAS.” Eko Jalu Santoso, Founder Motivasi Indonesia

Cara mudah membuat Ribbon Microsoft Access 2007/2010



Seperti kita tahu, microsoft mengeluarkan office baru, yaitu Office 2007 dan Office 2010. Berbeda dengan Microsoft Office sebelumnya, pada Office 2007 ke atas microsoft mengeluarkan Runtime untuk Access yang gratis sehingga memungkinkan kita menjalankan file Access 2007 keatas tanpa harus install Office-nya.


Di Access 2007/2010 kita mengenal tampilan baru pengganti Menu Bar yaitu Ribbons, yang berisi perintah-perintah untuk dijalankan seperti halnya Menu Bar.

Ribbon ini dapat kita buat dan kita kustomisasi sendiri dan caranya pun cukup mudah.

Berikut pengalaman saya membuat ribbon dengan menggunakan Access 2010 (Terima Kasih buat para pakar access dan accesser anggota milis belajar-access@yahoogroups.com)

1.Buka notepad kemudian ketikkan syntax berikut :

<?xml version="1.0" encoding="utf-8"?>
<customUI
xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
<tabs>
<tab id="tab-1" label="Tab 1">
<group id="group-1" label="Group 1" >
<button id="b-F1" label="theForm1" imageMso="HappyFace" size="large" onAction="=bukaForm('Form1')"/>
<button id="b-F2" label="Print" imageMso="PrintAreaMenu" size="large" onAction="Macro1"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Keterangan Script:
<tab id="tab-1" label="Tab 1">
=> tab id : id tab (tidak boleh sama dengan yang lain)
=> label : nama Tab (Bisa diganti sesuai kebutuhan)

<group id="group-1" label="Group 1" >
=> group id : id group(tidak boleh sama dengan yang lain, meski beda tab)
=> label : nama Grup(Bisa diganti sesuai kebutuhan)

<button id="b-F1" label="theForm1" imageMso="HappyFace" size="large" onAction="=bukaForm('Form1')"/>
=> button id : id ribbon (tidak boleh sama dengan yang lain, meski beda tab dan grup)
=> label : nama Ribbon(Bisa diganti sesuai kebutuhan)
=> imageMso : gambar/icon ribbon
=> onAction : perintah yang dijalankan (bisa dari funtion di modul VBA atau macro)


2.Kemudian buat table di MS Acces dengan nama UsysRibbons, dengan field sbb:



3.Buka tabel UsysRibbons, pada field RibbonName ketikkan Custom1, dan copas syntax di point no 1 ke field RibbonXML.



4. Untuk menampilkan ribbon buatan sendiri, masuk AccessOption -> CurrentDatabase, pada combo RibbonName ketikkan Custom1, kemudian restart program accessnya.



5. Sampai disini, Ribbon sudah jadi.

Untuk merubah icon/image ribbon caranya cukup mudah.

Download file Office2007IconsGallery.xlsm dari sini, kemudian buka dengan microsoft excel.

Buka tab Developer -> pilih galery -> arahkan kursor pada image yang diinginkan hingga muncul popup nama image. Ketikkan nama image ini pada script : <button id="b-F1" label="theForm1" imageMso="HappyFace" size="large" onAction="=bukaForm('Form1')"/> sebagaimana langkah no. 1 diatas.



Apabila tab Developer tidak ada, bisa dibuka dengan File - Option - Customize Ribbon, kemudian beri centang pada Developer.

Contoh file access dengan ribbon buatan sendiri bisa didownload dari sini
Semoga berhasil.



Posting berkaitan dengan :



7 komentar:

Andi Aziz mengatakan...

kalau mau diedit ribbon nya gimana? soalnya kalau ms access dibuka kembali, tabel UsysRibbons tidak ada.

defrian mengatakan...

wah terima kasih tutorialnya..

Ihsan mengatakan...

Terimakasih informasinya,, sangat bermanfaat :)

dira mengatakan...

itu link nya broken mas..
untuk yang mau download xml icon
http://downloads.ziddu.com/downloadfile/12526182/RibbonOffice2010.rar.html silahkan dibuka

pica mengatakan...

lalu untuk menyembunyikan "all access object"nya bagaimana,,jadi user bnr2 memanfaatkan fasilitas ribbon sebagai menubar..

Hasan GMC mengatakan...

button id="b-F1" label="theForm1" imageMso="HappyFace" size="large" onAction="=bukaForm('Form1')"

execusi OnAction Error,.... mohon penerangan yang langsung tanpa baca macro atau VB

Anonim mengatakan...

File koq ga bisa didownload mas........!

Poskan Komentar