Microsoft Access VBA Programming for the Absolute Beginner

Closes the window of an Access object.

Syntax

DoCmd.Close([ObjectType][, ObjectName][, Save])

with the following parameters:

ObjectType

An AcObjectType constant indicating the type of object to close. Possible values are acDataAccessPage, acDefault (the active window), acDiagram, acForm, acFunction, acMacro, acModule (a VBA module), acQuery, acReport, acServerView, acStoredProcedure, and acTable.

ObjectName

A String indicating the name of an object of type ObjectType.

Save

An AcCloseSave constant indicating whether changes should be saved. Possible values are acSaveNo, acSavePrompt (the default value), and acSaveYes.

Example

The example iterates the AllTables collection to determine if a table is open. If it is, it prompts the user to close it.

Public Sub CloseTables() Dim tbls As AllTables Dim tbl As Variant Set tbls = Access.Application.CurrentData.AllTables For Each tbl In tbls If tbl.IsLoaded Then If vbYes = MsgBox("Close " & tbl.Name & "?") Then DoCmd.Close acTable, tbl.Name, acSavePrompt End If End If Next End Sub

Comments

• If the object to be closed is a form with a required field that is blank, no error or warning will be displayed, and any changes will be aborted. This contrasts with forms closed by the Close button, the Close macro action, or the File | Close menu item, all of which display a message box in this case.

• Close is typically used with all of its optional arguments omitted to close the object from which the code is running. The optional arguments are typically supplied when the Close method is used to close some other object.

• No error is generated if ObjectName is not open or does not exist. Instead, the method call is simply ignored.