全部显示

CloseCurrentDatabase 方法

可以使用 CloseCurrentDatabase 方法从另一个通过自动化打开数据库的程序中关闭当前数据库（Microsoft Access 数据库 (.mdb) 或 Access 项目 (.adp)）。

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

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

示例

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

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

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

' 在模块的“声明”节输入以下内容：
Dim appAccess As Access.Application

Sub CreateForm()
    Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office\Samples\"

    Dim frm As Form, strDB As String

    ' 初始化数据库路径字符串。
    strDB = strConPathToSamples & "Northwind.mdb"
    ' 创建 Microsoft Access 的新实例。
    Set appAccess = CreateObject("Access.Application.9")
    ' 在 Microsoft Access 窗口中打开数据库。
    appAccess.OpenCurrentDatabase strDB
    ' 创建新窗体。
    Set frm = appAccess.CreateForm
    ' 保存新窗体。
    appAccess.DoCmd.Save , "NewForm1"
    ' 关闭当前打开的数据库。
    appAccess.CloseCurrentDatabase
    Set AppAccess = Nothing
End Sub