Custom Ribbon loaded and disapearing

S

SurveyorinVA

Hello all-
I have created several custom ribbons in the table USysRibbons. I load the
main ribbon at start up and have another one load when opening a form.
However when I open the form, the custom ribbon tabs flash for a second on
the ribbon and then disapear. I am not sure if one of my callbacks is not
correct so I have included it below. I am not sure if I am missing something
but any help would be greatly appreciated.
Regards,
CF

This is my main AppRibbon when application loads:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="onRibbonLoad">
<ribbon startFromScratch="true">

<officeMenu>
<menu id="mnuOpenDB" imageMso ="FileOpen" itemSize="large" label =
"Open Database" supertip="Open a Database." >
</menu>
</officeMenu>

<tabs>
<tab id="MyTab1" label="My Tab 5"/>
<tab id="MyTab2" label="MyTab 6"/>
<tab id="MyTab3" label="My Tab 7"/>
</tabs>
</ribbon>
</customUI>

Here is the Form Ribbon:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="onFormRibbonLoad">
<ribbon startFromScratch="true">

<tabs>
<tab id="MyTab1" label="Hello World"/>
<tab id="MyTab2" label="Hello Mom"/>
</tabs>
</ribbon>
</customUI>

Here is my call backs:

Option Compare Database
Option Explicit
Public gobjRibbon As IRibbonUI
Public gobjFormRibbon As IRibbonUI


Public Sub onRibbonLoad(ribbon As IRibbonUI)
Set gobjRibbon = ribbon

End Sub

Public Sub onFormRibbonLoad(ribbon As IRibbonUI)
Set gobjFormRibbon = ribbon

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top