Application.OpenCurrentDatabase (Access)

You can use the OpenCurrentDatabase method to open an existing Microsoft Access database as the current database.

You can use this method to open a database from another application that is controlling Microsoft Access through Automation, formerly called OLE Automation. For example, you can use the OpenCurrentDatabase method from Microsoft Excel to open the Northwind.mdb sample database in the Access window. After you have created an instance of Access from another application, you must also create a new database or specify a particular database to open. This database opens in the Access window. If you have already opened a database and wish to open another database in the Access window, you can use the CloseCurrentDatabase method to close the first database before opening another.

OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

' Include the following in Declarations section of module. 
Dim appAccess As Access.Application 
 
Sub DisplayForm() 
 
 Dim strDB as String 
 
 ' Initialize string to database path. 
 Const strConPathToSamples = "C:\Program " _ 
 & "Files\Microsoft Office\Office11\Samples\" 
 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = _ 
 CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Open Orders form. 
 appAccess.DoCmd.OpenForm "Orders" 
End Sub

Arguments

The following argument is required

filepath (String) - The name of an existing database file, including the path name and the file name extension.

Optional arguments

The following arguments are optional

Exclusive (Boolean) - Specifies whether you want to open the database in exclusive mode. The default value is False, which specifies that the database should be opened in shared mode.

bstrPassword (String) - The password to open the specified database.