** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - TABLAS: Ocultar tablas locales y vinculadas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoTABLAS: Ocultar tablas locales y vinculadas

 Responder Responder
Autor
Mensaje
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Tema: TABLAS: Ocultar tablas locales y vinculadas
    Enviado: 14/Agosto/2013 a las 08:34

'*******************************************

'* Oculta / Muestra tablas locales y/o vinculadas

'* Referencias: DAO 3.6

'* Para ocultar: AWHideTable True

'* Para mostrar: AWHideTable False

'* Marius.

'*******************************************

' SOLO APLICABLE EN ACCESS 2000 O SUPERIOR

' en A97 al compactar la base de datos se eliminaran las tablas

' ocultas.

'*******************************************

 

 

Public Function AWHideTable(opHIDE As Boolean)

  Dim tblTMP As DAO.TableDef

  For Each tblTMP In CurrentDb.TableDefs

    With tblTMP

      If .Attributes = dbAttachedTable And opHIDE Then

        .Attributes = dbHiddenObject

      ElseIf .Attributes = (dbAttachedTable + dbHiddenObject) And Not opHIDE Then

        .RefreshLink

      ElseIf .Attributes = 0 And opHIDE Then

        .Attributes = dbHiddenObject

      ElseIf .Attributes = 1 And Not opHIDE Then

        .Attributes = 0

      End If

    End With

  Next

  Application.RefreshDatabaseWindow

End Function

Arriba
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Enviado: 14/Agosto/2013 a las 08:35
Para ocultar consultas...


Para las consultas puedes usar esta funcion

Public Function AWHideQuery(opHIDE As Boolean)

  Dim qryTMP As DAO.QueryDef

  For Each qryTMP In CurrentDb.QueryDefs

    If Left(qryTMP.Name, 3) <> "~sq" Then

      Application.SetHiddenAttribute acQuery, qryTMP.Name, opHIDE

    End If

  Next

  Application.RefreshDatabaseWindow

End Function

Pero recuerda que el atributo "oculto" (SetHiddenAttribute) lo tienen todos los objetos de una mdb y los objetos ocultos se pueden o no mostrar cambiando las opciones de Propiedades/Ver.

Las tablas ademas de SetHiddenAttribute tienen en la propiedad Attributes la posibilidad de indicarles dbHiddenObject. Esta propiedad no se ve afectada por los valores de Propiedades/Ver.

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable