Overflow error in custom ribbon ID

[imran88]

Hi,

I have been using this in my Excel VBA.

How to preserve or regain the Id of my custom ribbon UI?

I have a little Excel 2007 application with a standard ribbon UI. See the CustomUI.xml and the VBA-code below. I have uploaded an Excel 2007 TestRibbonUI.xlsm to box.net from where you can get it with the link http://www.box.net/shared/8uznug7s3r My new tab with name "My Tab" and...

www.mrexcel.com

I successfully used it for Access by storing the value in a cell of Table which was working fine. But recently it was creating ID that was beyond the limit of Long Data Type

Here is the value that was stored in the Table
2776162645616
and I am receiving

Can RoryA or someone else help in this regard.

 

[RoryA]

Are you using 64bit Office?

 

[imran88]

Thanks Rory for the review.

Yes I am using using 64-bit office and here is the code I was using and it was working fine until the value of id went beyond the scope of Long Data Type and I am getting the overflow error

#If VBA7 Then
    Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As LongPtr)
#Else
    Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
#End If



#If VBA7 Then
Function GetRibbon(ByVal lRibbonPointer As LongPtr) As Object
#Else
Function GetRibbon(ByVal lRibbonPointer As Long) As Object
#End If
        Dim objRibbon As Object
        CopyMemory objRibbon, lRibbonPointer, LenB(lRibbonPointer)
        Set GetRibbon = objRibbon
        Set objRibbon = Nothing
End Function

 

[RoryA]

Sounds like somewhere in your code (in the parts you haven't posted) you're trying to use a Long to hold the value of the pointer, but it needs to be a LongLong or LongPtr in 64bit Office.

 

[imran88]

Sounds like somewhere in your code (in the parts you haven't posted) you're trying to use a Long to hold the value of the pointer, but it needs to be a LongLong or LongPtr in 64but Office.

Thanks Rory

I will read my full code once again and will comeback to let you know in either case.