getting tables details

[Killa]

Is there a way of getting the table info from a ms access database i need to get the quantity of tables and the names of these tables
i open the database like this

Set dbpartnumbers = OpenDatabase("L:\Part & Drawing Registers\database\partnumbers.mdb&quot


Debug.Print dbpartnumbers.Recordsets.Count <<<< this returned a 0


any ideas ????

 

[ca8msm]

If you are using the access object you can use the following:

Dim MyTableList as String
MyTableList = &quot;&quot;

For i = 0 To CurrentDb.TableDefs.Count - 1

If Left(CurrentDb.TableDefs.Item(i).Name, 4) <> &quot;MSys&quot; Then
If MyTableList = &quot;&quot; Then
MyTableList = CurrentDb.TableDefs.Item(i).Name
Else
MyTableList = MyTableList & &quot;,&quot; & CurrentDb.TableDefs.Item(i).Name
End If
End If
Next i

 

[Killa]

Your a life saver cheers