doco
Power User
- Local time
- Today, 06:17
- 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
]
[
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
]