** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - No veo Tablas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoNo veo Tablas

 Responder Responder
Autor
Mensaje
Plinio Montano Ver desplegable
Habitual
Habitual
Avatar

Unido: 10/Marzo/2015
Localización: Cuba
Estado: Sin conexión
Puntos: 129
Enlace directo a este mensaje Tema: No veo Tablas
    Enviado: 24/Septiembre/2022 a las 22:13
Problemas con mi BD, en ella tengo varias tablas por ejemplo:

Existe la Tabla1, Tabla2 y así varias.

Hasta hace poco se veían todas las tabals
De pronto mi BD me muestra unas tablas y otras no, en una entrada anterior desde código VBA

Ocultar todas las tablas

Public Function OcultaTablas()
 Dim dbs As Database, tdf As TableDef
  Set dbs = CurrentDb
  For Each tdf In dbs.TableDefs
    Application.SetHiddenAttribute acTable, tdf.Name, True
  Next tdf
End Function

y luego las mandé a dejar de ser Ocultas

Public Function MuestraTablas()
 Dim dbs As Database, tdf As TableDef
  Set dbs = CurrentDb
  For Each tdf In dbs.TableDefs
    Application.SetHiddenAttribute acTable, tdf.Name, False
  Next tdf
End Function


pero ocurrió que solo me muestra algunas, aunque le active mostrar objetos ocultos.
y cuando ejecuto el código MuestraTablas(), la tabla1 me da el error de que no puedo modificar el objeto.

y sin embargo aunque no la vea, por ejemplo:
puedo ejecutar sentencias SQL relativas a ellas: 
"Select * from Tabla1"
y funciona perfectamente

pero si le pido 
DoCmd.OpenTable "table1", acViewDesign

Me dice que no encuentra el objeto "Tabla1"

si busco la relaciones está la "Tabla1" y me deja desde allí abrirla en diseño pero sigo sin verla en el panel de la BD.

? Que pude haber sucedido ?

Saludos cordiales.




pmv
Arriba
Plinio Montano Ver desplegable
Habitual
Habitual
Avatar

Unido: 10/Marzo/2015
Localización: Cuba
Estado: Sin conexión
Puntos: 129
Enlace directo a este mensaje Enviado: 24/Septiembre/2022 a las 22:43
Estimados Colegas ya lo resolví, haciéndolo de esta manera, espero le sea útil:

Public Function MuestraTablas()
    Dim dbs As Database, tdf As TableDef
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
     tdf.Attributes = 0 
    Next tdf
End Function

Por favor, le solicito Cierren este hilo.

Muchas Gracias
Un gran abrazo


pmv
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable