CrossTab Query

[Joe-Paul]

Hi:

I'm using a "CrossTab" Query to retrieve data. When I get it back, I want
to print the column Headers along the first row of the grid. How to I get
the names of the column Headers? The names of the columns will be dynamic;
i.e., I am listing facilities and getting total transports provided for each
facility. I am returning the Name of the Facility (or it's designator) as
Column headers and want that in the first row...with the totals in the
second row. Is there a way to use visual basic and get the names of the
columns in the Crosstab...and then put each one in a field in the first row?

Your advice would be appreicated.

JP

[Steve Gerrard]

"Joe-Paul" <Ha*********@comcast.net> wrote in message
news:SY******************************@comcast.com. ..

Hi:

I'm using a "CrossTab" Query to retrieve data. When I get it back, I want
to print the column Headers along the first row of the grid. How to I get
the names of the column Headers?

Any recordset, regardless of what sort of query you use to get it, will include
a Fields collection.
So something like this will get you the information you need:

Dim oRS As Recordset
Dim oFld As Field

' get data into oRS...

' The number of columns is.oRS.Fields.Count.
Debug.Print "columns needed: " & oRS.Fields.Count

For Each oFld In oRS.Fields
' do something here with each field name
Debug.Print oFld.Name
Next oFld

Now you can play with setting up the grid and labelling the column headers...

[Joe-Paul]

Great, Steve... Thanks a million.

JP
"Steve Gerrard" <my********@comcast.net> wrote in message
news:I5********************@comcast.com...

"Joe-Paul" <Ha*********@comcast.net> wrote in message
news:SY******************************@comcast.com. ..

Hi:

I'm using a "CrossTab" Query to retrieve data. When I get it back, I
want
to print the column Headers along the first row of the grid. How to I
get
the names of the column Headers?

Any recordset, regardless of what sort of query you use to get it, will
include a Fields collection.
So something like this will get you the information you need:

Dim oRS As Recordset
Dim oFld As Field

' get data into oRS...

' The number of columns is.oRS.Fields.Count.
Debug.Print "columns needed: " & oRS.Fields.Count

For Each oFld In oRS.Fields
' do something here with each field name
Debug.Print oFld.Name
Next oFld

Now you can play with setting up the grid and labelling the column
headers...