Closes the window of an Access object: DoCmd.Close([ObjectType][, ObjectName][, Save]) : DoCmd « Application « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Application
  3. DoCmd

Closes the window of an Access object: DoCmd.Close([ObjectType][, ObjectName][, Save])

 
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








Related examples in the same category

1.Open a report
2.Save changes to the client record
3.Undo changes made to the current record
4.Copies a database object into the same or another database: DoCmd.CopyObject([DestinationDatabase][, NewName][, SourceObjectType][, SourceObjectName])
5.Deletes a database object:DoCmd.DeleteObject([ObjectType][, ObjectName])
6.Using the DoCmd Object to Programmatically Add Sections to Reports at Runtime
7.Use DoCmd.OpenForm to open a form
8.Use DoCmd to close a form
9.Setting a Focus
10.Finding a Record
11.Validating a Record
12.Use DoCmd to open a form
13.Makes a sound using the computer's built-in speaker.
14.Using the DoCmd Object to Run Commands
15.Sending Mail
16.Calling the Report from VBA
17.DoCmd.Echo