La Web del Programador: Comunidad de Programadores
 
    Pregunta:  14272 - PRESENTACION NOMBRES DE TABLAS
Autor:  JAVIER NAVARRO CASADO
ACCESS'97 con WIN'98
No se como hacer que en un cuadro combinado o lista de un formulario me aparezcan los nombres de las tablas (o algunas de ellas mediante filtrado) de la base de datos que tengo abierta. La solución de emergencia aplicada es teclearme los nombres en una matriz y posteriormente introducirlos en el cuadro combinado. ¿Hay algún sistema de automatizar el proceso para que cada vez que creo una nueva tabla, no tenga que introducirla a mano en la matriz?
¿Alguien puede ayudarme?. Gracias

  Respuesta:  Luis Fernando Melo
Hola
puedes accesar a la coleccion de tablas de la siguiente manera
Al control cuadro combiando cambiale la propiedad "Tipo de origen de la fila" a "Lista de valores"

El siguiente ejemplo carga todas las tablas a un combobox llamado cbotablas

Private Sub Form_Load()
Dim t As TableDef
Dim slista As String
slista = ""
For Each t In DBEngine(0)(0).TableDefs
slista = slista & ";" & t.Name
Next t
Me.cbotablas.RowSource = slista

End Sub

NOTA: Tenga en cuenta que separador de listas está usando en su configuración regional del sistema ya que es probable que no funcione con ; sino con ,