informes

jose antonio
28 de Julio del 2004
Hola.
Mira queria consultaros una cosa, mira tengo dos codigos, son los siguietnes: uno que me busca los nombres de una base de datos y el otro me busca los informes de varias bases de datos y estos nombre me los introduce en distintlas listas

'codigo buscar bade de datos

Private Sub buscarfichero()
Dim fichero As String
Dim a As Integer
fichero = Dir("c:proyectos*.mdb")
Do While Len(fichero)
prueba!List1.AddItem (fichero)
a = a + 1
fichero = Dir
Loop
Exit Sub
End Sub

'codigo buscar informes

Private Sub Buscarinformes()
Dim informe As Variant
Dim objeto As Access.Application
Dim objReport As Access.AccessObject
informe = Dir("c:proyectos*.mdb")
Set objeto = New Access.Application
Do While informe <> vbNullString
objeto.OpenCurrentDatabase "c:proyectos" & informe, False
For Each objReport In objeto.CurrentProject.AllReports
List2.AddItem objReport.name
elige!List1.AddItem objReport.name
Next
objeto.CloseCurrentDatabase
informe = Dir
Loop
End Sub

Y la pregunta es, la siguiente como puedo concatenar esto para que me busque el informe y su base de datos y que se introduzcan una en cada sitio, es decir, si hay tres informes de una base de datos, peus que esa base de datos se duplique. Gracias.