Access - Combos / Tablas

   
Vista:

Combos / Tablas

Publicado por Rick (1 intervención) el 15/07/2009 09:42:10
Buenas,

como puedo realizar un combo que muestre el listado de tablas de mi BD?

Gracias!

Rick
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

RE:Combos / Tablas

Publicado por Jefferson (22 intervenciones) el 15/07/2009 16:18:45
Utiliza este codigo

Private Function ListaTablas(Campo As Control, Id As Long, fila As Long, col As Long, código As Integer)
Dim DescuentA As Integer, zx As Integer
Static dbs(127), Entradas
Dim ValRetorno
ValRetorno = Null
Select Case código
Case LB_INITIALIZE 'Inicializar.

Dim MIDB As Database, micontenedor As Container

Set MIDB = CurrentDb()

Entradas = MIDB.TableDefs.Count
DescuentA = 0
For zx = 0 To Entradas - 1

If (MIDB.TableDefs(zx).Attributes And DB_SYSTEMOBJECT) Or MIDB.TableDefs(zx).Name Like "MSys*" Or MIDB.TableDefs(zx).Name = "personalizacionx" Or MIDB.TableDefs(zx).Name = "festivos" Or MIDB.TableDefs(zx).Name = "ReporteImpresora" Then
DescuentA = DescuentA + 1

Else
dbs(zx - DescuentA) = MIDB.TableDefs(zx).Name
End If

Next zx
Entradas = Entradas - DescuentA
ValRetorno = Entradas
MIDB.Close
Set MIDB = Nothing
Case LB_OPEN 'Abrir.
ValRetorno = Timer 'ID único para control.

Case LB_GETROWCOUNT 'Número de filas.
ValRetorno = Entradas
Case LB_GETCOLUMNCOUNT 'Número de columnas.
ValRetorno = 1
Case LB_GETCOLUMNWIDTH 'Anchura de columna.
ValRetorno = -1 'Usar la anchura predeterminada.
Case LB_GETVALUE 'Obtener los datos.
ValRetorno = dbs(fila)
Case LB_END 'Terminar
For Entradas = 0 To 127
dbs(Entradas) = ""
Next
End Select
ListaTablas = ValRetorno

End Function

Un Saludo
Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar