Hello,

Can anyone tell me how to count the number of tables in a
DB, but that number should NOT include the system/hidden
tables??

Thanks for any help.

Dave

Dave,

Public Function fCountTables() As Integer
Dim db As Database
Dim tdf As TableDef
Dim i As Integer

Set db = CurrentDb

i = 0
For Each tdf In db.TableDefs
    If tdf.Attributes And dbSystemObject Or _
       tdf.Attributes And dbHiddenObject Then
        'Ignore
    Else
        i = i + 1
    End If
Next

Set db = Nothing
fCountTables = i
End Function

Hope this helps,

James

A Query with the following SQL String:

SELECT Count(*) AS TableCount
FROM MSysObjects
WHERE (((MSysObjects.Type)=1 Or (MSysObjects.Type)=6) AND
((MSysObjects.Name) Not Like "MSys*"));

should give you the Count of non-system Tables (local or linked).

HTH
Van T. Dinh