Count Tables

[Guilherme Moita]

Does anyone know how can I count the number of tables that
are currently in a Database?

Thanks in advance.

 

[Joshua A. Booker]

Guilherme,

Try this:

Currentdb.TableDefs.Count

HTH,
Josh

 

[losmac]

Sub CountTables()
MsgBox CurrentDb.TableDefs.Count
End Sub

This example return value: number of user tables + number of system tables
System tables by deault are unvisible. To change it go to
Tools->Options->View->System Objects