Access快速开发平台隐藏所有“SysFrm”开头的系统窗体代码

时　间:2019-05-08 08:54:19
作　者:宏鹏   ID：21115  城市：上海
摘　要:快速开发平台隐藏所有<SysFrm>窗体代码
正　文:

有学员需要隐藏快速开发平台所有SysFrm开头的窗体：

批量隐藏代码如下：

Private Sub Command0_Click()
    If MsgBox("您确认要隐藏所有的SysFrm窗体吗?", vbOKCancel + vbDefaultButton2 + vbExclamation, "提示!!!!") = vbOK Then
        Dim rst As DAO.Recordset
        Set rst = CurrentDb.OpenRecordset("Select Name FROM MSysObjects Where Flags = 0 GROUP BY Name HAVING Name Like 'SysFrm*'")
        '        Debug.Print rst.RecordCount
        Do While Not rst.EOF
            Application.SetHiddenAttribute acForm, rst!Name, True
            rst.MoveNext
        Loop
        rst.Close
        Set rst = Nothing
        Application.RefreshDatabaseWindow
        
        MsgBox "已隐藏所有SysFrm窗体!", vbInformation, "提示:"
    End If
    
End Sub