Ocultar y desocultar tablas
Publicado por osatxi (8 intervenciones) el 16/01/2014 09:44:36
He utilizado lo siguiente para ocultar y desocultar tablas en Access:
Pero he leido que dbHiddenObject es un atributo para marcar una tabla temporal, y que se borra al compactar la base de datos. He estado probando y no se me borra nada, lo que si me da un error de que la base de datos es sólo de lectura. Alguien ha utilizado esto alguna vez, lo que busco es ocultar tablas, consultas y algunos formularios para que no tengan acceso a ellos, ya sé que existe una acción de access que te lo permite hacer, pero me gustaría hacerlo desde código para que los usuarios no tengan ninguna opción de visualizarlo. Muchisimas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub OcultaTodasTablas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs If Not Tb.Attributes And dbHiddenObject ThenTb.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 ThenTb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
End Function
Pero he leido que dbHiddenObject es un atributo para marcar una tabla temporal, y que se borra al compactar la base de datos. He estado probando y no se me borra nada, lo que si me da un error de que la base de datos es sólo de lectura. Alguien ha utilizado esto alguna vez, lo que busco es ocultar tablas, consultas y algunos formularios para que no tengan acceso a ellos, ya sé que existe una acción de access que te lo permite hacer, pero me gustaría hacerlo desde código para que los usuarios no tengan ninguna opción de visualizarlo. Muchisimas gracias.
Valora esta pregunta
0