Close 方法
内容
在 Visual Basic 中，Close 方法执行 Close 操作。
expression.Close(ObjectType, ObjectName, Save)
expression 必需。返回“应用于”列表中的一个对象的表达式。
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 默认值 如果正在关闭 Visual Basic 模块，该值将被忽略。模块将关闭，但不会保存对模块的更改。 |
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
示例
下面的示例使用 Close 方法关闭“订单回顾”窗体，在不进行提示的情况下，保存所有对窗体的更改：
DoCmd.Close acForm, "Order Review", acSaveYes