有学员需要隐藏快速开发平台所有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