coba yang lebih simple, dengan RibbonXML : <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"; onLoad="CallbackOnLoad"> <ribbon startFromScratch="true"> <tabs> <tab id="MENU" label="Menu"> <group id="MyGroup" label="Master"> <button id="MyBtn1" label="Barang " imageMso="BevelShapeGallery" onAction="MyButtonCallbackOnAction"/> <button id="MyBtn2" label="Supplier" imageMso="BevelShapeGallery" onAction="MyButtonCallbackOnAction"/> </group> </tab> </tabs> </ribbon> </customUI>
mdl_ribbon, isinya : Option Compare Database Public gobjRibbon As IRibbonUI Public Function CallbackOnLoad(ribbon As IRibbonUI) Set gobjRibbon = ribbon MsgBox "form On Load" End Function Public Function MyButtonCallbackOnAction(control As IRibbonControl) MsgBox control.Id & " button is clicked" End Function 2010/6/25 bingtiong <[email protected]> > > > Salam Access, > > Saya sudah membuat file UsysRibbons dimana field RibbonXML berisi : > > <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"; > onLoad="CallbackOnLoad"> > <ribbon startFromScratch="true"> > <tabs> > <tab id="MENU" label="Menu"> > <group id="MyGroup" label="Master"> > <button id="MyBtn1" getSize="CallbackGetSize" label="Barang " > imageMso="BevelShapeGallery" getKeytip="CallbackGetKeytip" > onAction="MyButtonCallbackOnAction" > getScreentip="CallbackAllGetItemScreentip"/> > <button id="MyBtn2" getSize="CallbackGetSize" label="Supplier" > imageMso="BevelShapeGallery" getKeytip="CallbackGetKeytip" > onAction="MyButtonCallbackOnAction"/> > </group> > </tab> > </tabs> > </ribbon> > </customUI> > > Tapi kenapa pas saya klik Button "Barang" tidak dijalankan perintah > onAction nya. > Padahal module "MyButtonCallbackOnAction" hanya saya kasih perintah > tampilkan pesan. > > Tolong teman-2 ada yg bisa bantu, thk's. > > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
