Description: oDatabase = Application.CurrentDb() For i=0 to oConsulta.Properties.Count-1 ' Error: The property or method _ParentDatabase is not found ' Access2Base, module Database, line 891: Set vProperty._ParentDatabase = _This oConsulta=oDatabase.TableDefs("Rebuts") Print oConsulta.Properties ' Error: The property or method _ParentDatabase is not found ' Access2Base, module DataDef, line 452: Set vProperty._ParentDatabase = _ParentDatabase oConsulta=oDatabase.QueryDefs("$RebutDades") Print oConsulta.Properties ' Error: The property or method _ParentDatabase is not found ' Access2Base, module DataDef, line 452: Set vProperty._ParentDatabase = _ParentDatabase Steps to Reproduce: 1.Set object: oDatabase = Application.CurrentDb() 2.Explore properties: Print oDatabase.Properties or Print oDatabase.Properties(0) 3. Actual Results: Error: The property or method _ParentDatabase is not found Expected Results: A list of properties Reproducible: Always User Profile Reset: No Additional Info: LibreOffice 7.3.5.2 Windows 7, LUbuntu 20.04 Firebird embedded
Created attachment 182396 [details] Database Firebird embedded with macros
On pc Debian x86-64 with master sources updated today, I could reproduce this. I tried to F8 the code but it seems quite long so I stopped. code is here: https://opengrok.libreoffice.org/xref/core/wizards/source/access2base/Database.xba?r=e568c9dc#891