Ocultar Objetos de Access
Diego Luis Pinzón Barrera
Necesito ocultar los objetos de una base de datos mde, pero quiero hacerlo
desde VBA.
Muchas gracias.
jmmiralles
Buenos días Diego
para ocultar cualquier objeto de la base de datos basta con ponerle el
prefijo " USys ".
Si lo quieres hacer por código lo tendrías que renombrar con el objeto
Docmd, algo así,
Imagina que tenemos una tabla que se llama " tblFacturas " que es la que
queremos ocultar.
Docmd.Rename "USystblFacturas", acTable, "tblFacturas"
Esto sería algo como, cambia el nombre (USytblFacturas) del objeto tabla que
antes se llamaba tblFacturas.
Espero te sirva.
"Diego Luis Pinzón Barrera" escribió:
Diego Luis Pinzón Barrera
ni siquiera se pueden volver a mostrar cuando se selecciona ver objetos
ocultos, pero no recuerdo cual es la rutina ni donde encontrarla. Les
agradezco la ayuda.
"Diego Luis Pinzón Barrera" <dpin...@gmail.com> escribió en el mensaje de
noticias news:646A1E3A-5356-4331...@microsoft.com...
jmmiralles
Consulta la ayuda de " SetHiddenAttribute ", con este metodo también
ocultas los objetos.
En la web de Jun@nk tienes un programilla (JKOpciones) que oculta los
objetos el link es el siguiente:
http://juank.mvps.org/listapro.html
Espero te sirva
Saludos
"Diego Luis Pinzón Barrera" escribió:
> Amigos, se que existe alguna rutina que oculta los objetos de Access y que
jmmiralles
Buenas nuevamente, te paso, tal cual viene, lo que encontre en su día en la
página del Buho para ocultar y desocultar tablas, el link es el siguiente:
http://accessbuho.mvps.org/Buscador.asp
Y estas son las funciones con sus correspondientes comentarios:
Estas funciones de Chea, ocultan 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
Espero te sirva, ya comentas.
Saludos desde un lugar de la Mancha.
"Diego Luis Pinzón Barrera" escribió:
> Amigos, se que existe alguna rutina que oculta los objetos de Access y que
jmmiralles
Comentarte que si usas las funciones que te he pasado u otras que tiene el
búho en su web hechas por el etc, tendrás que tener activada, porque sino te
dará error, la siguiente referencia:
Microsoft DAO 3.6 Object Library
Saludos
"jmmiralles" escribió: