Access VBA教程:Close方法

在 Visual Basic 中,Close方法执行Close 操作。

expression.Close(ObjectType, ObjectName, Save)

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

ObjectType  可选AcObjectType。

AcObjectType 可以是下列 AcObjectType 常量之一:
acDataAccessPage
acDefault 默认
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable

注意   如果关闭“Visual Basic 编辑器”(VBE) 中的一个模块,则必须在 objecttype参数中使用 acModule。

ObjectName  可选 Variant 型。字符串表达式,objecttype参数所选类型的对象的有效名称。

Save  可选AcCloseSave。

AcCloseSave 可以是下列 AcCloseSave 常量之一:
acSaveNo
acSavePrompt 默认
acSaveYes

如果将该参数留空,将采用默认常量 (acSavePrompt)。

说明

有关该操作及其参数如何使用的详细信息,请参阅该操作的主题。

如果将 objecttype 和 objectname参数留空(默认常量 acDefault 用作 objecttype 值),则 Microsoft Access 将关闭活动窗口。如果指定 save参数并将 objecttype 和 objectname参数留空,则必须包含 objecttype 和 objectname参数的逗号。

注意   如果窗体上有一个绑定到 Required属性设为“是”的字段上的控件,并且未在该字段输入任何数据就用 Close方法关闭了窗体,则不会显示错误消息。对该记录所做的任何更改都将取消。当使用 Windows“关闭”按钮或宏中的 Close 操作关闭窗体,或者从“文件”菜单中选择“关闭”关闭窗体时,Microsoft Access 将显示警告信息。以下代码将在用户试图用 Close方法关闭有 Null 字段的窗体时,显示一条错误消息。


If IsNull(Me![Field1]) Then
    If MsgBox("'Field1' must contain a value." _
        & Chr(13) & Chr(10) _
    & "Press 'OK' to return and enter a value." _
    & Chr(13) & Chr(10) _
    & "Press 'Cancel' to abort the record.", _
        vbOKCancel, "A Required field is Null") = _
        vbCancel Then
        DoCmd.Close
    End If
End If

VBA示例

下面的示例使用 Close方法关闭“订单回顾”窗体,在不进行提示的情况下,保存所有对窗体的更改:


DoCmd.Close acForm, "Order Review", acSaveYes

上页:Access VBA教程:CancelEvent方法 下页:Access VBA教程:CopyObject方法

Access VBA教程:Close方法

Access VBA教程:CopyObject方法 Access VBA教程:DeleteObject方法
Access VBA教程:DoMenuItem方法 Access VBA教程:FindNext方法
Access VBA教程:FindRecord方法 Access VBA教程:GoToControl方法
Access VBA教程:GoToRecord方法 Access VBA教程:Hourglass方法
Access VBA教程:Maximize方法 Access VBA教程:Minimize方法
Access VBA教程:MoveSize方法 Access VBA教程:OpenDataAccessPage方法
Access VBA教程:OpenDiagram方法 Access VBA教程:OpenForm方法
Access VBA教程:OpenModule方法 Access VBA教程:OpenQuery方法
Access VBA教程:OpenReport方法 Access VBA教程:OpenStoredProcedure方法
Access VBA教程:OpenTable方法 Access VBA教程:OpenView方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号