To Many Cross Tab Headers

[Gary]

I am trying to transpose some data and have run into "To Many Cross Tab
Headers". It seems that 60 is the most you can have.

Ultimatly, I am not married to my solution/query as all I am trying to do is
take a field titled comments and concatonate the comments into one long
string test field.

Any suggestions welcomed.

GFS

 

[KC-Mass]

Try Something like this crude air code:

Sub ConcatAField()
Dim db as database
Dim rs as recordset
Dim strAllComments as String
set db = Currentdb
Set rs = db.openrecordset("Select Comments from YourTable")
strAllComments = ""
rs.movefirst
Do While not rs.EOF
strAllComments = strAllComments & rs!Comments
rs.movenext
Loop
(Here you would want to store the maybe very long string somewhere for
now just print)
Debug.Print strAllComments
set rs = nothing
set db = nothing
End Sub


Regards
Kevin