Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub AutoClose()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
With appAccess
.OpenCurrentDatabase "
D:\My Documents\db3.mdb
"
.Run "
myPublicSubInAccessDatabase
"
.CloseCurrentDatabase
.Quit
End With
Set appAccess = Nothing
End Sub