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?

Expand|Select|Wrap|Line Numbers

 
Dim TBL As DAO.Recordset
 
For Each TBL In CurrentDb.Recordsets

    Combobox.RowSource = Combobox.RowSource & TBL.Name & ";"

Next TBL

msquared

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

Expand|Select|Wrap|Line Numbers

 
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

Quote:

Originally Posted by 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?

Expand|Select|Wrap|Line Numbers

 
Dim TBL As DAO.Recordset
 
For Each TBL In CurrentDb.Recordsets

    Combobox.RowSource = Combobox.RowSource & TBL.Name & ";"

Next TBL

Expand|Select|Wrap|Line Numbers

 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!!!!!

Quote:

Originally Posted by ADezii

Expand|Select|Wrap|Line Numbers

 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

Quote:

Originally Posted by sphinney

Thanks!!!!!

No problemo.

Access VBA - CurrentDb.Recordsets is empty

re: Access VBA - CurrentDb.Recordsets is empty

re: Access VBA - CurrentDb.Recordsets is empty

re: Access VBA - CurrentDb.Recordsets is empty

re: Access VBA - CurrentDb.Recordsets is empty

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about