di pcku bisa kok.... 2010/6/28 bingtiong <[email protected]>
> > > Kok tidak bisa juga yach Pak, saya sudah coba tuh, jadi bingung juga nich, > tolong bantuan rekan-2 yach, thk's. > > > --- In [email protected] <belajar-access%40yahoogroups.com>, > "bingtiong" <bingti...@...> wrote: > > > > Thk's Pak, besok saya akan coba. > > > > --- In [email protected] <belajar-access%40yahoogroups.com>, > Muntahar <eyoung24@> wrote: > > > > > > 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 <bingtiong@> > > > > > > > > > > > > > > > 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 > > > --------------------------------------------- > > > > > > > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
