VBA to Enable Content

[psulions83]

Hi,

I have the below code and I have an issue of it running sometimes when it opens the Access dB, it needs to enable content. Is there a way enable content in the below code? I have tried a couple things but I do not think whatever I tried it even close to what is needed.

Sub delete()


   Dim appAccess As Access.Application


   Set appAccess = New Access.Application
   
   appAccess.OpenCurrentDatabase ThisWorkbook.Path & "\Access dB.accdb"


   appAccess.Visible = True


   Application.DisplayAlerts = False


   appAccess.DoCmd.RunMacro "Mcro_2"  
   
   appAccess.CommandBars("Menu Bar").Controls("Tools").Controls("Database Utilities").Controls("Compact and Repair Database").accDoDefaultAction
 
   appAccess.CloseCurrentDatabase
   
   'MsgBox "Delete & CR Complete.", vbCritical
   
End Sub