Visual Basic - Ocultar y desocultar tablas

Life is soft - evento anual de software empresarial
   
Vista:

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:

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 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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder