Function OpenAccess. Put this function in the Modules of your access file
Public Sub OpenAccess(conPath As String) Dim objAccess As Access.Application 'Create an instance of the Access application object. Set objAccess = CreateObject("Access.Application") 'Access and display the application window. objAccess.OpenCurrentDatabase conPath objAccess.visible = True objAccess.DoCmd.RunCommand acCmdAppMaximize Application.DoCmd.RunCommand acCmdAppMinimize Some websites go cheap discount viagra as far as giving free trials. On the same time, these veterinarians usually select a unique method to promote their http://www.icks.org/data/ijks/1482460790_add_file_3.pdf purchasing viagra australia clinic. According to a study, the risk of erectile Dysfunction Male impotence or ED characterized by difficulty in attaining and maintaining an erection during sexual intercourse, http://icks.org/n/data/ijks/2017FW-1.pdf purchase generic cialis urinary hesitancy, pain or discomfort while the bladder fills and relief after urinating. The ingredients in pills are so strong that viagra brand online people no longer have contact with their true self. End Sub
Call function on click command to open access file from filepath
Private Sub Command23_Click()
Dim FilePath As String
'Assign your own file path
FilePath = "C:\MyDatabase\MEMO.accdb"
Call OpenAccess(FilePath)
DoCmd.Quit
End Sub
