Counting the number of tables (1 Viewer)

[Dealerz]

hi,

Im pretty sure this is possible in access as ive found some examples but have been unable to incorporate them into my module.

Basically i need to set strNextValue as the number of tables in my access DB. Does anyone know of a function which counts the tables?

thanks.

 

[Travis]

Public Function TableCount() As Integer
    Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
    Dim iCount As Integer
    
    Set db = CurrentDb
    
    For Each tdf In db.TableDefs
        If tdf.Attributes = 0 Then iCount = iCount + 1
    Next tdf
    TableCount = iCount

End Function

 

[Dealerz]

thanks, but i get the compile error "user-defined type not defined" with the section "db As DAO.Database" any ideas?

thanks

 

[WayneRyan]

Dealerz,

This is a reference problem.

In design view for your code,
Select Tools --> References
Scroll down and click on the DAO reference.

You should be OK,

Wayne