Sub OcultaPepe()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Tb.Name = "Pepe" Then
Tb.Attributes = dbHiddenObject
End If
Next
End Sub
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Tb.Name = "Pepe" Then
Tb.Attributes = 0
End If
Next
para ocultar una tabla:
SetHiddenAttribute acTable, "tabla", True
para mostrar una tabla
SetHiddenAttribute acTable, "tabla", False
para saber si una tabla es visible o no
EsVisible=GetHiddenAttribute(acTable, "tabla")
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)