Access VBA - CurrentDb.Recordsets is empty

[sphinney]

As my Access 2002 form opens, I want to find the names of the tables in the current Access database and populate a combobox with them. Problem is, the CurrentDb.Recordsets object is empty even though I have two tables in the database. I'm using the code below, but the combobox remains empty. That's because CurrentDB.Recordsets is empty. Is this a bug with CurrentDb or have I done something dumb?

Dim TBL As DAO.Recordset
 
For Each TBL In CurrentDb.Recordsets
    Combobox.RowSource = Combobox.RowSource & TBL.Name & ";"
Next TBL
 

[MMcCarthy]

Just set the combobox Row Source to this query ...

SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name) Not Like '~*' And (MsysObjects.Name) Not Like 'MSys*') AND ((MsysObjects.Type)=1))
ORDER BY MsysObjects.Name;
 

Mary

[ADezii]

As my Access 2002 form opens, I want to find the names of the tables in the current Access database and populate a combobox with them. Problem is, the CurrentDb.Recordsets object is empty even though I have two tables in the database. I'm using the code below, but the combobox remains empty. That's because CurrentDB.Recordsets is empty. Is this a bug with CurrentDb or have I done something dumb?

Dim TBL As DAO.Recordset
 
For Each TBL In CurrentDb.Recordsets
    Combobox.RowSource = Combobox.RowSource & TBL.Name & ";"
Next TBL
 

Dim MyTable As TableDef
 
For Each MyTable In CurrentDb.TableDefs
  'No reason to see the System Tables
  If Left$(MyTable.Name, 4) <> "MSys" Then
     MsgBox MyTable.Name
  End If
Next

[sphinney]

Thanks!!!!!

Dim MyTable As TableDef
 
For Each MyTable In CurrentDb.TableDefs
  'No reason to see the System Tables
  If Left$(MyTable.Name, 4) <> "MSys" Then
     MsgBox MyTable.Name
  End If
Next

[ADezii]

Thanks!!!!!

No problemo.