通过

Application.CloseCurrentDatabase 方法 (Access)

  • 项目

使用 CloseCurrentDatabase 方法关闭当前数据库，Microsoft Access 数据库或 Access 项目 (.adp) 已通过自动化打开数据库的另一个应用程序。

语法

表达式。CloseCurrentDatabase

expression：表示 Application 对象的变量。

返回值

Nothing

注解

例如，可以从 Microsoft Excel 中使用该方法在打开另一个数据库之前关闭当前在 Microsoft Access 窗口中打开的数据库。

CloseCurrentDatabase 方法用于从另一个程序中通过自动化打开 Microsoft Access 数据库时。 从另一个应用程序创建 Microsoft Access 实例后，还必须创建新数据库或指定要打开的现有数据库。 该数据库将在 Microsoft Access 窗口中打开。

如果使用 CloseCurrentDatabase 方法关闭了在 Microsoft Access 的当前实例中打开的数据库，则以后打开其他数据库时就不必创建另一个 Microsoft Access 实例。

示例

以下示例通过自动化从另一个应用程序打开 Microsoft Access 数据库，创建一个新窗体并保存它，然后关闭该数据库。

可以将这段代码添加到任何能够作为 COM 组件的应用程序的 Visual Basic 模块中。 例如，可从 Microsoft Excel 或 Microsoft Visual Basic 中运行下面的代码。

当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。 所以，必须在模块级声明这个变量。

' Enter the following in the Declarations section of the module. 
Dim appAccess As Access.Application 

Sub CreateForm() 
 Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office12\Samples\" 
 
 Dim frm As Form, strDB As String 
 
 ' Initialize string to database path. 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Create new form. 
 Set frm = appAccess.CreateForm 
 ' Save new form. 
 appAccess.DoCmd.Save , "NewForm1" 
 ' Close currently open database. 
 appAccess.CloseCurrentDatabase 
 Set AppAccess = Nothing 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。