Issue to open file

Peter_1985 2,736

Hi,
Can you help to issue below

due to the last line in the following

F1 = "J:\ZIM A4 IT Site\A4 Projects\SO Number Creator\Index\db1.accdb"  
Dim Adb As Object: Set Adb = CreateObject("Access.Application")  
'Call Adb.OpenCurrentDatabase(F1)  
Adb.Visible = False  
  
Dim db As DAO.Database  
  
Set db = DBEngine(0).OpenDatabase(F1)

Viorel 122.6K Reputation points

2022-02-09T12:51:36.593+00:00

Maybe it is caused by OpenCurrentDatabase which now is commented. If Adb is not needed, then remove it, save your work, restart the machine, and try again.
Peter_1985 2,736 Reputation points

2022-02-10T02:07:12.813+00:00

Hi,
That Call line is not needed. The exactly same codes did work in the past. The issue appeared after Share-point upgrade.

Your answer