Crosstab Query Column Headings

[Bob Barnes]

Sorry...this is a cross-post (is also in "General questions", but NO replies
yet...if this is doable).

I'm uUsing automation to Excel.

Can I get the Column Headings..IE - Apr - May - Jun - Jul...
to transfer along w/ the automation? If not, I'll have to code for that.

TIA - Bob

 

[Duane Hookom]

Can you tell us what you are doing in a little more detail? You should be
able to get the field names if you are using a recordset.

 

[Bob Barnes]

Duane - You are correct. I realized that when I was walking into the Plant
this AM.

Thank you - Bob

 

[Bob Barnes]

Didn't get that I needed from the For Each FD in .Fields.

Can I get "TheMonth" values by Pivot??..below??
TRANSFORM Sum(MarvinMan.TheQty) AS SumOfTheQty
SELECT MarvinMan.TheTM
FROM MarvinMan
GROUP BY MarvinMan.TheTM
PIVOT MarvinMan.TheMonth;

TIA - Bob

 

[Duane Hookom]

You should be able to get the pivot values from this query:

SELECT DISTINCT MarvinMan.TheMonth
FROM MarvinMan;

 

[Bob Barnes]

Duane - Beautiful...

Code like this got TheMonth's values..

Set Z = CurrentDb
Q = "SELECT DISTINCT MarvinMan.TheMonth FROM MarvinMan;"
Set RS = Z.OpenRecordset(Q, dbOpenSnapshot)
With RS
If Not .BOF Then
Do Until .EOF
MsgBox !TheMonth
.MoveNext
Loop
End If
.Close: Set RS = Nothing: Z.Close: Set Z = Nothing
End With

Thank you - Bob