gobjRibbon.Invalidate not firing the event

Question

Hello.

I've got an accdb access 2007 application that has a custom ribbon and the command gobjRibbon.Invalidate is working .
Custom ribbon works in runtime2007  with compilation and accdr extension.

If I put the accdr on the 2013 runtime,  load event fires correct. Buttons working
correct=(OnActionButton(control As IRibbonControl)).

But any further change to labels does not execute 

it's no doing any thing never getting to CallbackGetLabel(control As IRibbonControl, ByRef label).

Calling to gobjRibbon.Invalidate or gobjRibbon.InvalidateControl does nothing.

Any ideas?

Leon.

Answer 1

Hi Leon,

How did you change label and where did you call "gobjRibbon.Invalidate"?

Could you share us a simple file which could reproduce your issue?

Best Regards,

Tao Zhou

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].

Answer 2

Tao Hi.

Here is the custom ribbon definitions:
  

        <group id="grpwelcome" autoScale="false" centerVertically="false"  getLabel="CallbackGetLabel" getVisible ="GetVisible" tag = "RibbonName:=IDBERibbonCreator2010" >
          <button id="btnMeetings" size="normal"  getLabel="CallbackGetLabel" imageMso="PlanAMeeting" tag="RibbonName:=IDBERibbonCreator;inMenu:=;CustomTagValue1:=;CustomTagValue2:=;CustomTagValue3:=;CustomPicture:=;CustomPicturePath:=" onAction="OnActionButton" getVisible="GetVisible" getEnabled="GetEnabled" />
          <button id="btnReminders" size="normal"  getLabel="CallbackGetLabel" imageMso="AddReminder" tag="RibbonName:=IDBERibbonCreator;inMenu:=;CustomTagValue1:=;CustomTagValue2:=;CustomTagValue3:=;CustomPicture:=;CustomPicturePath:=" onAction="OnActionButton" getVisible="GetVisible" getEnabled="GetEnabled" />
        </group>

And I've got 

Public Sub CallbackGetLabel(control As IRibbonControl, _
                     ByRef label)

    Dim tasks As Integer
    Dim Meetings As Integer
    Dim RSLabel As Recordset2
    Dim d As Recordset2
        If Not IsLoaded_Form("Z_FL_02_Tizkoret_Show") Then
            Meetings = GetWorkerMeetingsCount(tasks)
        End If
        Select Case control.ID
            Case "grpwelcome"
                If Nz(global_account_no, "") <> "" Then
                    label = " Welcome " & GetUserName(global_account_no)
                Else
                    label = "User Name Welcome"
                End If
            Case "btnMeetings"
                label = "You has " & Meetings & " & Follow ups " & tasks & ""
            Case "btnReminders"
                label = "You has " & getMSGtNo & " & New " & getMSGNoNew & " Reminders "
            Case "Cheks"
                label = "Deferred Check Found"
            Case "btnOldFileNo"
                Set d = db.OpenRecordset("SELECT *  FROM tpa023  [systemnop23]=""" & system_nos & """ and [wrkr]=""0000000000000000"" and line_no=87", dbOpenDynaset)
                If d.RecordCount > 0 Then
                    If Nz(d!Desc) > "" Then
                        label = d!Desc
                    End If
                End If
                d.Close
                Set d = Nothing
            Case Else
                Set RSLabel = db.OpenRecordset("Select ControlLabel from USyRibbonLng where LngId =""en"" and ControlId =""" & control.ID & """", dbReadOnly)
                If RSLabel.RecordCount > 0 Then
                    label = RSLabel!ControlLabel
                End If
                RSLabel.Close
                Set RSLabel = Nothing
                
        End Select
End Sub

On load result:

Chang label working correct.
Then I've got timer form that is checking for changes every 30 sec, and calling gobjRibbon.Invalidate function if changes found.
In access 2007 All working fine. Access 2013/2016 ... gobjRibbon.Invalidate does nothing it's never getting to CallbackGetLabel function or GetVisible function.
No error produced... Just complete ignore.



Leon

 

Answer 3

Hi Leon,

Could you share us how and where you called gobjRibbon.Invalidate?

I made a test with code below, it works correctly.

1. Ribbon

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad">
  <ribbon startFromScratch="false">
    <tabs>
      <tab idMso="TabCreate" visible="false" />
      <tab id="dbCustomTab" label="A Custom Tab" visible="true">
        <group id="grpwelcome"   getLabel="CallbackGetLabel" ><button id="btnMeetings" size="normal"  getLabel="CallbackGetLabel"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

2. CallBack

Public isTrue As Boolean
Public gobjRibbon As IRibbonUI
Sub OnRibbonLoad(ribbon As IRibbonUI)
    ' Callbackname in XML File "onLoad"

     Set gobjRibbon = ribbon

End Sub
Public Sub CallbackGetLabel(control As IRibbonControl, _
                     ByRef label)

        Select Case control.ID
            Case "grpwelcome"
                If isTrue Then
                    label = " Welcome "
                Else
                    label = "User Name Welcome"
                End If
            Case "btnMeetings"
               If isTrue Then
                    label = " Welcome "
                Else
                    label = "User Name Welcome"
                End If

        End Select
End Sub

3. Button to call invalidate

Private Sub Command10_Click()
Module1.isTrue = True
Module1.gobjRibbon.Invalidate
End Sub

Best Regards,

Tao Zhou

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].

Answer 4

Tao hi.

Current update.

In access 2016 (English version) got it working!

Still can't make it work in Access 2013... maybe because Access 2013 I have its a Hebrew version.

Leon

Answer 5

Hi Leon,

I would suggest you make a test with Access 2013 English version.

Best Regards,

Tao Zhou

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].

Answer 6

Tao Hi,

Still no luck with Access 2013.
I must have it working in Hebrew environment.

Your example On load firing.

Any other Ideas?

Best regards,
Leon

Answer 7

For this error, I suggest you make a test with code below:

Option Compare Database

Public isTrue As Boolean
Public gobjRibbon As IRibbonUI
Sub OnRibbonLoad(ribbon As IRibbonUI)
    ' Callbackname in XML File "onLoad"
    
     Set gobjRibbon = ribbon

End Sub
Public Sub CallbackGetLabel(control As IRibbonControl, _
                     ByRef label)

        Select Case control.ID
            Case "grpwelcome"
                If isTrue Then
                    label = " Welcome "
                Else
                    label = "User Name Welcome"
                End If
            Case "btnMeetings"
               If isTrue Then
                    label = " Welcome "
                Else
                    label = "User Name Welcome"
                End If

        End Select
End Sub

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].