A family of Microsoft relational database management systems designed for ease of use.
Hi Kal,
I have just re-rolled forward to 2408 to create you a test scenario. Microsoft® Access® for Microsoft 365 MSO (Version 2408 Build 16.0.17928.20114) 32-bit
If you run the ReproduceError() function on an affected system then it will output as follows : "Open Databases : 1" "Open Databases : 2" "Open Databases : 3" etc. When it reaches 504 it is game over.
On an un-affected system
Microsoft® Access® for Microsoft 365 MSO (Version 2406 Build 16.0.17726.20078) 32-bit
it will output "Open Databases : 1" "Open Databases : 1" "Open Databases : 1" 5000 times, as it should.
Function OpenDatabaseCount()
Dim td As TableDef
For Each td In CurrentDb.TableDefs
'Do nothing
Next
OpenDatabaseCount = DAO.Workspaces(0).Databases.Count
End Function
Function ReproduceError() Dim i For i = 1 To 5000
Debug.Print "Open Databases : " & OpenDatabaseCount
Next End Function