|
Sub CloseAll()
Dim DBInstance As Database Dim RSInstance As Recordset On Error Resume Next For Each DBInstance In Workspaces(0).Databases 'For all open databases... For Each RSInstance In DBInstance.Recordsets 'For all open recordsets... RSInstance.Close Next DBInstance.Close Next End Sub |