U bevindt zich hier: Home > Developer > Visual Basic > VB code 

VBA

Het aantal velden in een tabel (DAO).

Dit is een alternatieve functie voor het tellen van het aantal velden in tabellen. Deze functie is wellicht sneller/beter dan de code in nr. 1, maar kan alleen in tabellen tellen (niet in queries).

Function CountFieldsTable(strTable As String) As Long

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = CurrentDb
    Set tdf = db.TableDefs(strTable)
    CountFieldsTable = Nz(tdf.Fields.Count, 0)

    Set tdf = Nothing
    db.Close
    Set db = Nothing

End Function