Access VBA教程:CloseCurrentDatabase方法

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

expression.CloseCurrentDatabase

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

说明

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

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

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

VBA示例

以下示例通过 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

上页:Access VBA教程:CloseConnection方法 下页:Access VBA教程:CodeDb方法

Access VBA教程:CloseCurrentDatabase方法

Access VBA教程:CodeDb方法 Access VBA教程:CompactRepair方法
Access VBA教程:ConvertAccessProject方法 Access VBA教程:CopyDatabaseFile方法
Access VBA教程:CreateAccessProject方法 Access VBA教程:CreateControl方法
Access VBA教程:CreateDataAccessPage方法 Access VBA教程:CreateEventProc方法
Access VBA教程:CreateForm方法 Access VBA教程:AddFromFile方法
Access VBA教程:AddFromGuid方法 Access VBA教程:CreateGroupLevel方法
Access VBA教程:CreateNewDocument方法 Access VBA教程:CreateNewWorkgroupFile方法
Access VBA教程:CreateReport方法 Access VBA教程:CreateReportControl方法
Access VBA教程:CurrentDb方法 Access VBA教程:CurrentUser方法
Access VBA教程:DAvg方法 Access VBA教程:DCount方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号