Problem with invalidateControls

[alainb]

am trying to get my nav buttons up to date every time I move to another record, my XML file is good and my call back related to them are also good.
The problem is when I load my main form, I get an error91 object variable or with block not set. I tried to create a small sub to specially invalidate specific controls but it works only when my main form is loaded again.
So I want to know on how I can solve this, here is what I did so far:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnLoadRibbon">
<ribbon startFromScratch="true">
<tabs>
<tab id="tabHome" label="Home">

<group id="grpNews" label="News">
<labelControl id="lblWelcome" getLabel="onGetLabel"/>
<labelControl id="lblToday" getLabel="onGetLabel"/>
</group>

<group id="gprTools" label="Tools">
<button idMso="SpellingAccess" label="Spelling" size="large"/>
<button idMso="FindDialog" label="Find" size="large"/>
<toggleButton idMso="FiltersMenu" label="Filter" size="large"/>
</group>

<group id="grpNav" label="Navigation">
<box id="boxNavLbl" boxStyle="horizontal">
<labelControl id="lblNav" getLabel="OnGetLabel"/>
</box>
<box id="boxNav" boxStyle="horizontal">
<buttonGroup id="bg1">
<button id="NewLease" imageMso="GoToNewRecord" onAction="OnNavigateRecord" getEnabled="OnGetNavEnabled"/>
<button id="MoveFirst" imageMso="MailMergeGoToFirstRecord" onAction="OnNavigateRecord" getEnabled="OnGetNavEnabled"/>
<button id="MovePrev" imageMso="MailMergeGoToPreviousRecord" onAction="OnNavigateRecord" getEnabled="OnGetNavEnabled"/>
</buttonGroup>
<editBox id="txtJump" sizeString="000000" onChange="OnChangeRecord" getText="OnGetText"/>
<buttonGroup id="bg2">
<button id="MoveNext" imageMso="MailMergeGoToNextRecord" onAction="OnNavigateRecord" getEnabled="OnGetNavEnabled"/>
<button id="MoveLast" imageMso="MailMergeGotToLastRecord" onAction="OnNavigateRecord" getEnabled="OnGetNavEnabled"/>
<button id="DelLease" imageMso="RecordsDeleteRecord" onAction="OnNavigateRecord" getEnabled="OnGetNavEnabled"/>
</buttonGroup>
</box>
</group>

<group id="grpExit" label="Exit">
<button id="cmdCloseDatabase" label="Close Database" imageMso="FileClose" size="large" onAction="onButtonCommand" supertip="Close current database only."/>
<button id="cmdExitDatabase" label="Close And Exit" imageMso="PrintPreviewClose" size="large" onAction="onButtonCommand" supertip="Exit the database and close Access."/>
</group>

<group id="grpAbout" label="About">
<button id="cmdHelpAbout" label="About" size="large" imageMso="Help" onAction="onOpenFormEdit" tag="frmAbout" supertip="View the About form."/>
</group>
</tab>

</tabs>
</ribbon>
</customUI>

my module where I keep callbacks
Public gobjRibbon As IRibbonUI

Public Sub OnLoadRibbon(objRibbon As IRibbonUI)
Set gobjRibbon = objRibbon

'to refresh, or invalidate all controls in the Ribbon
If (Not gobjRibbon Is Nothing) Then
gobjRibbon.Invalidate
End If
End Sub

Public Sub OnNavigateRecord(ctl As IRibbonControl)
'to allow user to navigate thru records
Dim rec As AcRecord

Select Case ctl.ID
Case "MoveFirst"
rec = acFirst
Case "MovePrev"
rec = acPrevious
Case "MoveNext"
rec = acNext
Case "MoveLast"
rec = acLast
End Select

DoCmd.GoToRecord , , rec

If (Not gobjRibbon Is Nothing) Then
' invalidate the nav label
gobjRibbon.InvalidateControl "lblNav"
End If
End Sub

And my main form current event:
Private Sub Form_Current()
On Error GoTo ErrorHandler_Error

'invalidate controls to keep in sync with record movement
gobjRibbon.InvalidateControl "lblNav"
gobjRibbon.InvalidateControl "MoveFirst"
gobjRibbon.InvalidateControl "MovePrev"
gobjRibbon.InvalidateControl "MoveNext"
gobjRibbon.InvalidateControl "MoveLast"
.........................
........................

End sub

I also tried calling my invalidate thru a custom function but still get the same result.
I understang that my gobjRibbon is declared as a global variable, my other callbalck that require gobjRibbon are all working just fine, I do not need to declare it again
but when it come to my main form, I get an error

Any help is greatly appreciated since I have been on that problem for the past 2 days
Thanks

[jimatqsi]

Give us the big picture. What do you mean, "my main form"? What is the main form, what is the subform, how are they interacting together?

You said "but it works only when my main form is loaded again." so I'm wondering, is the main form being closed at some point?

Also, please use code tags. You do that by clicking the "#" button before you start typing code, or type your code, then highlight it, and the click the "#" button.

Jim

[alainb]

My main forms is form being loaded at first, this form has only 1 subform attached to it(only 7 text field on it, linked as master/chield), all other forms are being opened as popups from command button so the information displayed is related to the curernt record on the main form. I only use 1 ribbon for all of my forms, right now, the popups do not display any ribbons at all because I do not need them, they are just data entry forms.
The main forms is never being close unless you want to go to another section of the program like financials or reports, accessible from the switchboard.

My entire process goes like this:
once the ribbon vartiable is loaded, it call the onGetLabels to populate 3 text field on the first group, all OK, then it call onGetNavEnable to peoperly set my nav bottons in a separate group, then call the onGetLabel to populate the text field with the qty of current filtered record, then the main forms current event kicks in and the error is displayed. I do have a function being called from the current event of the main form to update the nav controls when moving to another record.
Unless I am mistaken about the process of ribbon loading, that is the way it goes.

This is the first time I use this site so I am not sure by waht you mean by using code tags, is it when I post code here so it can be clearer ?

Many Thanks
Al