habia una manera de hacerlo con un for Each pero no me acuerdo como, pero esta podría ser otra solución:
Código:
Dim bd As Database Dim i As Integer
Set bd = Workspaces(0).OpenDatabase("C:\..\bd01.mdb") On Local Error Resume Next While Err.Number = 0 MsgBox bd.TableDefs(i).Name i = i + 1 Wend On Local Error GoTo 0 bd.Close
En línea
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
Autor
En línea
