Type Mismatch

[AlexanderBB]

I'm using my workbook on a new Win 11 machine and getting a Type Mismatch error in many functions.

It's where a recordset record count is assigned to an integer. I've uploaded a image that may show it.
When hovering over Record Count there's a symbol char at the end.
I think it's a Win 11 thing but not sure.
Has the datatype for recordCount changed ?

 

[6StringJazzer]

I'm not familiar with the specifics of working with this type of SQL query but I have a recommendation that you use Option Explicit, and declare every variable with a data type, include procedure arguments. I'm not sure that is related to your problem but it often uncovers bugs. rx is not declared in this function, so I don't know if it's declared anywhere. It seems to be doing what you expect, though, otherwise you would get an error on .Open. How is rx typed and set? I would be interested in looking at the spec for it.

To further diagnose this I would add

Debug.Print TypeName(rx.RecordCount)

and see if it comes back as String, or a numeric type.

The code you are showing here does not assign RecordCount to an integer. I recommend you copy all of your code and paste it into a post. For readability, select the code after pasting and click "VBA" in the edit controls to add CODE tags.

 

[AlexanderBB]

Thanks Jeff, your typename suggestion showed it as LongLong (which I'd never heard of).
And it's happy as that, although before I found out I'd changed them all to Cint(rx.recordcount) which also worked.
I should have added it's 64 bit Excel, may be something to do with it. (I do use Option Explicit)
rx is set in the module declarations as Public rx as ADODB.Recordset and I connect to Access with various sql queries.
Also Public cnn as ADODB.connection and Refs needed for Microsoft Activex Data Objects 2.8 Library

Sub SetBackend()
On Err GoTo Done
Set cnn = New ADODB.Connection
Set rx = New ADODB.Recordset
OpenBackend
Done:
End Sub
Sub OpenBackend() 'Access
Dim tPath$
  tPath = GetPath(ThisWorkbook.FullName)
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & tPath & "BackendII.mdb"
cnn.Open
End Sub

 

[6StringJazzer]

LongLong is a 64-bit integer, valid only on 64-bit Excel installs. It is possible that RecordCount was Long in 32-bit, and LongLong in 64-bit. But unless you recently upgraded from 32- to 64-bit I would not expect this issue to just pop up suddenly.

What I did not know until just now is that if you write code with a caret "^" at the end of a number, it types it as LongLong. I could have saved us a step if I had known that, but I've never had to deal with number bigger than Long.

Forced coercion with Cint will work fine as long as you have a record count under 2,147,483,647