Bom Dia,
Como faço para ocultar e também mostrar todos os objetos do access?
Como faço para ocultar e também mostrar todos os objetos do access?
Última edição por tombr300 em 20/4/2018, 17:47, editado 1 vez(es)
'Autor JPaulo
Public Function EscondeTudo(Status As Boolean)
Dim obj As AccessObject
Dim dbs As Object
Dim T As DAO.TableDef
Dim tblNome As String
Dim i As Integer
Dim X As Integer
Dim DB As DAO.Database
Application.SetOption "Show Hidden Objects", False 'marca a checkbox de ocultar objectos nas opções do Access
Set DB = CurrentDb() 'para o access 2007
Set dbs = Application.CurrentProject
DoCmd.Close
'oculta os forms
For Each obj In dbs.AllForms
Application.SetHiddenAttribute acForm, obj.Name, Status
Next obj
'oculta os relatorios
For Each obj In dbs.AllReports
Application.SetHiddenAttribute acReport, obj.Name, Status
Next obj
'oculta os modulos
For Each obj In dbs.AllModules
Application.SetHiddenAttribute acModule, obj.Name, Status
Next obj
'oculta as macros
For Each obj In dbs.AllMacros
Application.SetHiddenAttribute acMacro, obj.Name, Status
Next obj
'oculta as consultas
Set dbs = Application.CurrentData
For Each obj In dbs.AllQueries
Application.SetHiddenAttribute acQuery, obj.Name, Status
Next obj
'oculta as tabelas
For i = 0 To DB.TableDefs.Count - 1
Set T = DB.TableDefs(i)
tblNome = T.Name
If Not tblNome Like "msys*" Then
Application.SetHiddenAttribute acTable, tblNome, Status
X = X + 1
End If
Next i
End Function