Property Count: Integer (R)

Description

Counts the columns in a query.

Example

Sub Main()

Dim SQL

Dim Query

SQL = "Select LangCode, Description From Language"

Dim Query = Application.DataBase.CreateQuery( SQL )

Query.Open

' Note the use of the ampersand (&) this is where the conversion takes place

MsgBox "The query contains: " & Query.Fields.Count & " columns"

Query.Close

End Sub