View Single Post
  #3 (permalink)  
Old September 10th, 2003, 03:37 PM
Bob Bedell Bob Bedell is offline
Friend of Wrox
 
Join Date: Jun 2003
Location: , , USA.
Posts: 1,093
Thanks: 1
Thanked 12 Times in 11 Posts
Default

Hi Sean,

Those AccessObject collections aren't very flexible things. What you're trying to do can be done with a one-liner:

Private Sub Form_Load()

     List1.RowSource = "SELECT Name " & _
                       "FROM MSysObjects " & _
                       "WHERE Type=1 AND Mid([name],1,4)<>'MSys'"

End Sub

This just queries a system table and selects only the user tables.

HTH,

Bob

Reply With Quote