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

VBA

Het aantal velden in een tabel of query tellen (DAO).

Deze functie geeft als resultaat het aantal velden van een tabel of query.

Function CountFields(strTable As String) As Long

    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT TOP 5 * FROM [" & strTable & "];")
    CountFields = Nz(rs.Fields.Count, 0)

    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing

End Function