Solved Opening Access then closing Excel, without closing Access (1 Viewer)

[Etxezarreta]

Hello everyone,

I open an Access file from an Excel workbook, then I close the Excel, but the access file closes too: it is maybe more an Excel problem than an Access one, but I am not sure:
here is the code, do you have any recomandation please? Many thanks in advance.
Etxe

Public Sub FermerFichierExel()

Dim appAccess As Object
Dim strPath As String

strPath = ActiveWorkbook.Path
On Error GoTo errSub

Set appAccess = CreateObject("Access.Application")

Call appAccess.OpenCurrentDatabase(strPath & "\GestionProduction_SupplyChain_LGB.accdb")
appAccess.Visible = True

ActiveWorkbook.Close SaveChanges:=True

Exit Sub
errSub:
    MsgBox Err.Number & " -- " & Err.Description
  
End Sub

 

[theDBguy]

Hi. I'm no Excel programmer but maybe use Shell instead of OpenCurrentDatabase. Just a thought...

 

[Isaac]

Hello everyone,

I open an Access file from an Excel workbook, then I close the Excel, but the access file closes too: it is maybe more an Excel problem than an Access one, but I am not sure:
here is the code, do you have any recomandation please? Many thanks in advance.
Etxe

Public Sub FermerFichierExel()

Dim appAccess As Object
Dim strPath As String

strPath = ActiveWorkbook.Path
On Error GoTo errSub

Set appAccess = CreateObject("Access.Application")

Call appAccess.OpenCurrentDatabase(strPath & "\GestionProduction_SupplyChain_LGB.accdb")
appAccess.Visible = True

ActiveWorkbook.Close SaveChanges:=True

Exit Sub
errSub:
    MsgBox Err.Number & " -- " & Err.Description
 
End Sub

After the line appAccess.Visible=True, add this line:

appAccess.usercontrol=true

 

[Etxezarreta]

Hi. I'm no Excel programmer but maybe use Shell instead of OpenCurrentDatabase. Just a thought...

Thanks, Isaac's solution works fine, so I haven't tried with shell.

 

[Etxezarreta]

After the line appAccess.Visible=True, add this line:

appAccess.usercontrol=true

Perfect: it works, thank you very much Isaac.
Etxe.

 

[Isaac]

Perfect: it works, thank you very much Isaac.
Etxe.

Very glad to hear it worked out! Good luck