Estas funciones de Chea, coultan y desocultan tablas en una MDB
Ojo, que las ocultan de forma real, nada que luego se pueda deshacer
en el menu herramientas opciones.
Si se coultan mediante este metodo, la unica forma de hacerlas visibles de nuevo
es correr el codido inverso.
Public Sub OcultaTodasTablas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
End Sub
Public Function MuestraTodasTablas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
End Function
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)