Ribbon Invalidate error 91

[tighe]

i am trying to invalidate a ribbon button on the close of a form because
depending on the client you enter the button can or cannot be available.

using the information from
:http://msdn.microsoft.com/en-us/library/dd548011.aspx, i ended up with:

Public gobjRibbon As IRibbonUI

Public Sub OnRibbonLoad(objRibbon As IRibbonUI)
Set gobjRibbon = objRibbon
End Sub

Public Function InvalidateFirmControls()
With gobjRibbon
.InvalidateControl "cmdNMA" 'Object variable not set (Error 91)

End With
End Function

i tried calling this from unload event but no change in error. Any
suggestions on how to change the process or correct?

 

[Mark Andrews]

Checkout this site and find the sample that hides buttons on the ribbon for
more details on your issue:
http://www.accessribbon.de/en/?Downloads

If you can't figure it out send me an email and I'll help more.

HTH,
Mark Andrews
http://www.rptsoftware.com

 

[tighe]

mark,

Thank you the suggestion. I have been to that site before and it got me
started creating a more dynamic ribbon, i'll see what happens, and if
coporate will let me download from them.

i think i found the solution by adding the invalidate before enabling the
item, so far so good:
Public Sub GetEnabled(ctl As IRibbonControl, ByRef Enabled As Variant)

gobjRibbon.InvalidateControl "cmdNMA" 'no error and enables correctly

Select Case ctl.ID

Case "cmdNMA": Set Enabled = Forms![Firm_Address]![BD]
Case "cmdEmailRev": Set Enabled = [Forms]![001_Start]![EmailReview]

End Select
End Sub