<div>
Here you go ... for LOCAL (not linked) tables only:<br />
<br />
Function mGetLocalTableCounts()<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; Dim tbl As TableDef<br />
&nbsp; &nbsp; For Each tbl In CurrentDb.TableDefs<br />
&nbsp; &nbsp; &nbsp; &nbsp; If InStr(1, tbl.Name, &quot;MSys&quot;) = 0 And tbl.RecordCount &gt;= 0 Then Debug.Print tbl.Name &amp;&nbsp;&quot; &quot;&nbsp;&amp; tbl.RecordCount<br />
&nbsp; &nbsp; Next tbl<br />
&nbsp; &nbsp; <br />
End Function<br />
<br />
mx
</div>


<div>
You can run that code from the VBA Immediate Window ... see image<br />
<br />
mx<br />
<a href="https://filedb.experts-exchange.com/incoming/2011/05_w21/460177/Capture1.gif" target="_blank" class="file-inline" title="1 (27 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Capture1.gif</a>
</div>


Capture1.gif

<div>
- the following sql can be run from the query window OR your vba code to get all tables record count:<br />
<br />
SELECT MSysObjects.Name,<br />
CLng(DCount(&quot;*&quot;,[name])) AS NumRecords<br />
FROM MSysObjects<br />
WHERE MSysObjects.Type = 1 AND MSysObjects.Flags = 0
</div>


<div>
Actually I need linked tables and local tables.<br />
Thanks
</div>


<div>
Then you can use the query approach and include linked tables = Type 6:<br />
<br />
SELECT MSysObjects.Name, CLng(DCount(&quot;*&quot;,[Name])) AS RecCount<br />
FROM MSysObjects<br />
WHERE (((MSysObjects.Type)=1 Or (MSysObjects.Type)=6) AND ((MSysObjects.Flags)=0));<br />
<br />
mx
</div>


<div>
But you cannot include the Flags = 0 criteria ...<br />
<br />
mx
</div>


<div>
- yes i agree, with linked tables you cannot include flags=0
</div>


<div>
Has this question been resolved? &nbsp;Can we close the question ?<br />
<br />
thx.mx
</div>


<div>
<div class="content wysiwyg-content">
I need code that will go through each of the tables in my<br />
Access database and give me the record counts of each of the <br />
tables. &nbsp;<br />
Thanks.
</div>
</div>


I need code that will go through each of the tables in my
Access database and give me the record counts of each of the 
tables.  
Thanks.

Code to display record counts of each of the tables in my Access Database.

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.

Microsoft Access

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

SQL (Structured Query Language) is designed to be used in conjunction with relational database products as of a means of working with sets of data. SQL consists of data definition, data manipulation, and procedural elements. Its scope includes data insert, query, update and delete, schema creation and modification, and data access control.