Application 对象引用正在运行的 Microsoft Access 应用程序。

备注

Application 对象包含所有 Access 对象和集合。

使用 Application 对象将方法或属性设置应用于整个 Access 应用程序。 例如，可以使用 Application 对象的 SetOption 方法从 Visual Basic 设置数据库选项。 The following example shows how you can set the Display Status Bar check box on the Current Database tab of the Access Options dialog box.

Application.SetOption "Show Status Bar", True

Access 是支持自动化的 COM 组件，以前称为 OLE 自动化。 可以从另一个也支持自动化的应用程序操作 Access 对象。 为此，请使用 Application 对象。

例如，Microsoft Visual Basic 是 COM 组件。 可以从 Visual Basic 打开 Access 数据库并处理其对象。 在 Visual Basic 中，首先创建对 Access 对象库的引用，然后创建 Application 类的新实例并将对象变量指向它，如以下示例所示：

Dim appAccess As New Access.Application

在不支持 New 关键字的应用程序中，可以使用 CreateObject 函数创建 Application 类的新实例：

Dim appAccess As Object

Set appAccess = CreateObject("Access.Application")

创建 Application 类的新实例后，可以使用 OpenCurrentDatabase 方法或 NewCurrentDatabase 方法打开数据库或创建新数据库。 然后，可以设置 Application 对象的属性并调用它的方法。

使用 Application 对象的 CommandBars 属性返回对 CommandBars 对象的引用时，可以使用该引用访问所有 Microsoft Office 命令栏对象和集合。

还可以通过 Application 对象操作其他 Access 对象。 例如，通过使用 Access DoCmd 对象的 OpenForm 方法，可以在 Microsoft Office Excel 中打开 Access 窗体：

appAccess.DoCmd.OpenForm "Orders"

有关使用“自动化”创建引用和控制对象的详细信息，请参阅充当 COM 组件的应用程序的相关文档。

方法

AccessError

AddToFavorites

BuildCriteria

CloseCurrentDatabase

CodeDb

ColumnHistory

ConvertAccessProject

CreateAccessProject

CreateAdditionalData

CreateControl

CreateForm

CreateGroupLevel

CreateReport

CreateReportControl

CurrentDb

CurrentUser

CurrentWebUser

CurrentWebUserGroups

DAvg

DCount

DDEExecute

DDEInitiate

DDEPoke

DDERequest

DDETerminate

DDETerminateAll

DefaultWorkspaceClone

DeleteControl

DeleteReportControl

DFirst

DirtyObject

DLast

DLookup

DMax

DMin

DStDev

DStDevP

DSum

DVar

DVarP

Echo

EuroConvert

Eval

ExportNavigationPane

ExportXML

FollowHyperlink

GetHiddenAttribute

GetOption

GUIDFromString

HtmlEncode

hWndAccessApp

HyperlinkPart

ImportNavigationPane

ImportXML

InstantiateTemplate

IsCurrentWebUserInGroup

LoadCustomUI

LoadFromAXL

LoadPicture

NewAccessProject

NewCurrentDatabase

Nz

OpenAccessProject

OpenCurrentDatabase

PlainText

Quit

RefreshDatabaseWindow

RefreshTitleBar

Run

RunCommand

SaveAsAXL

SaveAsTemplate

SetDefaultWorkgroupFile

SetHiddenAttribute

SetOption

StringFromGUID

SysCmd

TransformXML

属性

AppIcon

Application

AppTitle

Assistance

AutoCorrect

AutomationSecurity

BrokenReference

内部版本

CodeContextObject

CodeData

CodeProject

COMAddIns

CommandBars

CurrentData

CurrentObjectName

CurrentObjectType

CurrentProject

DBEngine

DoCmd

FeatureInstall

FileDialog

Forms

IsCompiled

LanguageSettings

MacroError

MenuBar

模块

名称

NewFileTaskPane

Parent

Printer

Printers

ProductCode

References

报表

ReturnVars

Screen

ShortcutMenuBar

TempVars

UserControl

VBE

Version

Visible

WebServices

另请参阅

Access 对象模型参考

支持和反馈

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