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

VBA

Het aantal velden in een query tellen (DAO).

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

Function CountFieldsQuery(strQuery As String) As Long

    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef

    Set db = CurrentDb
    Set qdf = db.QueryDefs(strQuery)
    CountFieldsQuery = Nz(qdf.Fields.Count, 0)

    Set qdf = Nothing
    db.Close
    Set db = Nothing

End Function