<% noads=1 %> <%dim crumb crumb="Close Current Database" crumb1="Close Current Database Code Example" %> VBA CloseCurrentDatabase Method
Home  Fees/Services  Access Examples  Tutorials  Access Download  Articles  Search  Forums  Blockchain Tech  Contact  Privacy  Links
Application Object Examples
<%response.write crumb1 %>

Visual Basic Application Objects

Home > Access Tutorials > VBA Application Object Methods<%response.write " > " & crumb%>
 
<% dim Gnum,Ynum Gnum="4458683265" Ynum="7682" dim Page_Type Page_Type="Prog" %>





Access Error
AddToFavorites
BuildCriteria
CloseCurrentDatabase
CodeDB
CompactRepair
ConvertAccessProject


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















Contact Information

<% Response.write "Copyright 2000-" & year(now) & " Blue Claw Database Design" %>