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

时　间:2016-12-16 09:08:57
作　者:张义成   ID：37928  城市：赤峰
摘　要:Access在当前窗体上 关闭 活动的 表-查询-窗体-报表
正　文:

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


        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


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店