Can't find my functions

  • Thread starter Thread starter ericb
  • Start date Start date
E

ericb

When setting up a ribbon I can't find the functions in my fctGeneral module.
I always get the error message :

Can't run the macro or callback function 'On RibbonLoad'

This is my ribbon setup in a USysRibbons table:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="OnRibbonLoad">
<ribbon startFromScratch="false">
<tabs>
<tab id="tabHome" label="Exporter" visible="true">
<group id="grpDossier" label="Dossier">
<button id="Runcmd_HB_InfoPersonnel" size = "normal"
label="Généralité" getImage="GetImages" onAction="cmdBoutonAction"/>
<button id="Runcmd_HB_Consultation" size="normal"
label="Consultation" getImage="GetImages" onAction="cmdBoutonAction"/>
<button id="Runcmd_HB_Evaluation" size="normal"
label="Évaluation" getImage="GetImages" onAction="cmdBoutonAction"/>
<button id="Runcmd_HB_Produit" size="normal"
label="Produit" getImage="GetImages" onAction="cmdBoutonAction"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

The function OnRibbonload is in a module and the code is :

Public myRibbon As IRibbonUI

Public Sub OnRibbonLoad(ribbon As IRibbonUI)
'Callbackname im XML File "onLoad"

Set myRibbon = ribbon

strImageMso1 = ""
strImageMso2 = "AcceptInvitation"

End Sub

The same message appears with the function getImages.

I also get that error message when I click a button and the code to the
function is :

Public Sub cmdBoutonAction(control As IRibbonControl)

msgbox "button ---" & control.ID

End Sub



Somehow Access does not see the functions in the module fctGeneral.

How or where do I set the correct path for it to see my functions properly ?

Thank you for the help
 
Back
Top