Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Closes the window of an Access object

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