I found below script from the forum but the objApp.Visible = False doesn't work.
Any help would be appreciated.
Thanks
Private Sub Form_Load()
Dim objApp As Access.Application
Set objApp = New Access.Application
objApp.UserControl = True
objApp.OpenCurrentDatabase "Q:\Barcode\Update.accdb"
objApp.Visible = False
End Sub
Any help would be appreciated.
Thanks
Private Sub Form_Load()
Dim objApp As Access.Application
Set objApp = New Access.Application
objApp.UserControl = True
objApp.OpenCurrentDatabase "Q:\Barcode\Update.accdb"
objApp.Visible = False
End Sub