Ocultar i Mostrar objectes en Access

Les següents funcions oculten o mostren objectes d'Access, segons li passem el valor True (oculta) o False (mostra).

FUNCIÓ OCULTAR / MOSTRAR TAULES EN ACCESS (vinculades incloses)

Function ocultarMostrarTaules(ByVal Oculta As Boolean)

Dim TablaDef As TableDef
On Error GoTo ErrorTaules

For Each TablaDef In CurrentDb.TableDefs
If Left(TablaDef.Name, 4) <> "MSys" Then
If Application.GetHiddenAttribute(acTable, TablaDef.Name) = Not Oculta Then
Application.SetHiddenAttribute acTable, TablaDef.Name, Oculta
End If
End If
Next

Exit Function

ErrorTaules:
MsgBox ("Error al ocultar les taules"), vbCritical, "Error"

End Function

FUNCIÓ OCULTAR / MOSTRAR CONSULTES EN ACCESS

Function ocultarMostrarConsultes(ByVal Oculta As Boolean)
On Error GoTo ErrorConsultes

For Each myObjectQuery In Application.CurrentData.AllQueries

If Left(myObjectQuery.Name, 4) <> "MSys" Then
If Application.GetHiddenAttribute(acTable, myObjectQuery.Name) = Not Oculta Then
Application.SetHiddenAttribute acTable, myObjectQuery.Name, Oculta
End If
End If
Next myObjectQuery

Exit Function

ErrorConsultes:
MsgBox ("Error al ocultar les consultes"), vbCritical, "Error"

End Function


FUNCIÓ OCULTAR / MOSTRAR FORMULARIS EN ACCESS

Function ocultarMostrarFormularis(ByVal Oculta As Boolean)

On Error GoTo ErrorFormularis

For Each myObjectForm In Application.CurrentProject.AllForms
If Left(myObjectForm.Name, 4) <> "MSys" Then
If Application.GetHiddenAttribute(acForm, myObjectForm.Name) = Not Oculta Then
Application.SetHiddenAttribute acForm, myObjectForm.Name, Oculta
End If
End If
Next myObjectForm

Exit Function

ErrorFormularis:
MsgBox ("Error al ocultar els formularis"), vbCritical, "Error"

End Function


FUNCIÓ OCULTAR / MOSTRAR INFORMES EN ACCESS

Function ocultarMostrarInformes(ByVal Oculta As Boolean)

On Error GoTo ErrorInformes

For Each myObjectReport In Application.CurrentProject.AllReports
If Left(myObjectReport.Name, 4) <> "MSys" Then
If Application.GetHiddenAttribute(acReport, myObjectReport.Name) = Not Oculta Then
Application.SetHiddenAttribute acReport, myObjectReport.Name, Oculta
End If
End If
Next myObjectReport

Exit Function

ErrorInformes:

MsgBox ("Error al ocultar els informes"), vbCritical, "Error"

End Function


FUNCIÓ OCULTAR / MOSTRAR MÒDULS EN ACCESS

Function ocultarMostrarModuls(ByVal Oculta As Boolean)

On Error GoTo ErrorModuls

For Each myObjectModul In Application.CurrentProject.AllModules
If Left(myObjectModul.Name, 4) <> "MSys" Then
If Application.GetHiddenAttribute(acModule, myObjectModul.Name) = Not Oculta Then
Application.SetHiddenAttribute acModule, myObjectModul.Name, Oculta
End If
End If
Next myObjectModul

Exit Function

ErrorModuls:
MsgBox ("Error al ocultar els mòduls"), vbCritical, "Error"

End Function