Access CloseCurrentDatabase Method Example

CloseCurrentDatabase Method - You can use the CloseCurrentDatabase method to close the current database (either a Microsoft Access database (.mdb) or an Access project (.adp) from another application that has opened a database through Automation.

Here is a little example the opens another Access database and creates a form, then closed the database.  Can you envision the uses of this technique to write temporary table to another database (creating the database on the fly)?

Option Compare Database

Dim appAccess As Access.Application

Sub CreateForm()
Const strDBPath = "C:\My_DBs\"
Dim frm As Form
Dim strDB As String

      ' setup string to current database path.
strDB = strDBPath & "the_database.mdb"
      ' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application")
      ' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
      ' Create a new form.
Set frm = appAccess.CreateForm
      ' Save the new form.
appAccess.DoCmd.Save , "New_Form"
      ' Close the newly opened database.
appAccess.CloseCurrentDatabase
      ' Cleanup
Set appAccess = Nothing

End Sub