Access - cosas posiblemente útiles

1 ver el nombre de todas las tablas de la base de datos---------------- MsgBox Tabla.Name

2.-ver la cadena de de conexion --------- Tabla.Connect , con ello se puede cambiar mediante codigo la ubicacion de la base de datos si está dividida

3 .- hacer visible el nombre de las tablas Tabla.Attributes = 0: Rem hace visibles las tablas

4 .- oculta el nombre de las tablas, Tabla.Attributes = 1: Rem oculta las tablas
-------------------------------------------------------------------------------------------

Dim base As Database
Dim Tabla As TableDef


Set base = CurrentDb()

For Each Tabla In base.TableDefs

MsgBox Tabla.Name & " --- " & Tabla.Connect

Tabla.Attributes = 0: Rem hace visibles las tablas

Tabla.Attributes = 1: Rem oculta las tablas

Next Tabla

Hola Jose

he visto que te gusta esto de programar "Te gusta investigar y conocer el porque de las cosas"

Te felicito................

Yo lo haría de otra forma y excluiría las Tablas del Sistema...

Sub MuestraTablas()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset(MisTablas)
With rst
While Not .EOF
MsgBox rst!Name
.MoveNext
Wend
.Close
End With
Set rst = Nothing
End Sub
Function MisTablas() As String
On Local Error GoTo VerError
MisTablas = "SELECT MSysObjects.Name"
MisTablas = MisTablas & " FROM MSysObjects"
MisTablas = MisTablas & " WHERE (((MSysObjects.Name) Not Like ""Msys*"""
MisTablas = MisTablas & " AND (MSysObjects.Name) Not Like ""Usys*"")"
MisTablas = MisTablas & " AND ((MSysObjects.Type)=1"
MisTablas = MisTablas & " OR (MSysObjects.Type)=6));"
MisTablas = MisTablas & " "
Exit Function
VerError:
MsgBox "Error # " & Err.Number & vbCrLf & Err.Description, vbInformation
End Function

Un Saludo hermano y sigue así "aprendiendo cada día mas"

Desde Venezuela
Jefferson

Saludos Jefferson


Muchas cosas he mirado en los ejemplos de tu página y me han sido de gran ayuda y creo que como a mi a otros les haya pasado lo mismo.

Mi profesión no es ésta, pero apoyandome en ella consigo grandes resultados .


Creo que acces es una gran herramienta que nos soluciona muchos problemas.


un saludo de nuevo y gracias por tus aportaciones


jose manuel - desde EL ASTILLERO