Can I SELECT all the Tables using select Statement.

Thanks,
Elmer

Elmer,

When you say select the tables, are you just trying to view a list of tables in your database?


dartcoach

dartcoach,

I want to put it all to a listbox.

Thanks,
Elmer

Elmer,
Try this:
Sub AllTables()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    ' Search AllTables collection.
    For Each obj In dbs.AllTables
       listbox.additem obj.Name
    Next obj
End Sub



dartcoach

dartcoach,

Great It works fine, :)

Thanks,
Elmer

Elmer,

Forgot to tell you - using that process, it also gives you the system tables. If you want to eliminate them from your list box - Try this:

    For Each obj In dbs.AllTables
       if obj.name like "*Msys*" then
       else
          listbox.additem obj.Name
       end if
    Next obj

Hope that works for you.

Kevin


dartcoach