在当前窗体上 关闭 活动的 表-查询-窗体-报表


        Dim tbl As AccessObject
        For Each tbl In Application.CurrentData.AllTables
            If tbl.IsLoaded = True Then
                DoCmd.Close acTable, tbl.Name
            End If
        Next tbl
        
            Dim qry As AccessObject
        For Each qry In Application.CurrentData.AllQueries
            If qry.IsLoaded = True Then
                DoCmd.Close acQuery, qry.Name
            End If
        Next qry
        
            Dim frm As Object
        For Each frm In CurrentProject.AllForms
            If frm.Name <> Screen.ActiveForm.Name Then
                DoCmd.Close acForm, frm.Name
            End If
        Next frm
        
            Dim rpt As Object
        For Each rpt In CurrentProject.AllReports
                DoCmd.Close acReport, rpt.Name
        Next rpt