Attempting to open ACCESS DB using vba. Application will not show visible (1 Viewer)

doco

Power User
Local time
Yesterday, 20:50
Joined
Feb 14, 2007
Messages
482
Using Excel 365, Win11 Machine
[
Sub OpenReferenceDb(control As IRibbonControl)

' create new access object
' declared in general declarations
Set appAccess = New Access.Application

' open the access project
Call appAccess.OpenCurrentDatabase("C:\workspace\amrad\amrad_app\data\reference.accdb")
appAccess.Visible = True ' will not show visible

TheCleaners:
Set appAccess = Nothing
Exit Sub

EH:
MsgBox Err.Description, vbCritical + vbOKOnly, "ERRROR"
On Error GoTo 0
GoTo TheCleaners

End Sub
]
 

doco

Power User
Local time
Yesterday, 20:50
Joined
Feb 14, 2007
Messages
482
No - that will show visible
Funny all the examples looked up online show this as the way to do it. But, as we know its bulls'it.

So, what does work?

TIA

doco
 

doco

Power User
Local time
Yesterday, 20:50
Joined
Feb 14, 2007
Messages
482
Code:
accessApp.UserControl = true


Managed to find it.
 

Users who are viewing this thread

Top Bottom