<div>
Sub listsize()<br />
Dim db As Database<br />
Dim tdf As DAO.TableDef<br />
Set db = CurrentDb<br />
For Each tdf In db.TableDefs<br />
If Left(tdf.Name, 4) &lt;&gt;&nbsp;&quot;msys&quot; Then Debug.Print tdf.Name &amp;&nbsp;&quot;:&quot; &amp;&nbsp;DCount(&quot;*&quot;, tdf.Name)<br />
Next tdf<br />
Set db = Nothing<br />
End Sub<br />
<br />
This will do it for tables.<br />
<br />
I can't see the point in doing it for queries.
</div>


<div>
the point in doing it for queries is to do comparisons with a database we have migrated to sql
</div>


<div>
Sorry - I see what you'r after but that isn't what was in my mind.<br />
There are too many reasons why you can't call a query reliably in code.<br />
Action queries, parameter queries just won't run; queries using form references won't run.<br />
<br />
<br />

</div>


<div>
I understand,is there any way of excluding linked tables in the table count one ?
</div>


<div>
try this query<br />
<br />
SELECT Count(MSysObjects.Type) AS CountOfQueries, (SELECT Count(MSysObjects.Type) <br />
FROM MSysObjects<br />
HAVING ((MSysObjects.Name) Not Like &quot;msys*&quot;) AND (MSysObjects.Type)=1) AS CountOfTables<br />
FROM MSysObjects<br />
HAVING ((MSysObjects.Name) Not Like &quot;~*&quot;) AND ((MSysObjects.Type)=5);<br />

</div>


<div>
<div class="content wysiwyg-content">
Is there an easy way to iterate through access tables and get a count for every one on my system.<br />
I would like to do it with queries as well
</div>
</div>


Is there an easy way to iterate through access tables and get a count for every one on my system.
I would like to do it with queries as well

Sub listsize()
Dim db As Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If Left(tdf.Name, 4) &lt;&gt; &quot;msys&quot; Then Debug.Print tdf.Name &amp; &quot;:&quot; &amp; DCount(&quot;*&quot;, tdf.Name)
Next tdf
Set db = Nothing
End Sub

This will do it for tables.

I can&#39;t see the point in doing it for queries.

the point in doing it for queries is to do comparisons with a database we have migrated to sql

Sorry - I see what you&#39;r after but that isn&#39;t what was in my mind.
There are too many reasons why you can&#39;t call a query reliably in code.
Action queries, parameter queries just won&#39;t run; queries using form references won&#39;t run.




I understand,is there any way of excluding linked tables in the table count one ?

try this query

SELECT Count(MSysObjects.Type) AS CountOfQueries, (SELECT Count(MSysObjects.Type) 
FROM MSysObjects
HAVING ((MSysObjects.Name) Not Like &quot;msys*&quot;) AND (MSysObjects.Type)=1) AS CountOfTables
FROM MSysObjects
HAVING ((MSysObjects.Name) Not Like &quot;~*&quot;) AND ((MSysObjects.Type)=5);


Access iterating through tables and queries

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.