Tony

I am not even sure what you want to do is possible.  For instance how could
Access tell what field names would be returned from a crosstab query?  Here
is a can't fail way of doing what you want using a recordset and iterating
through its fields collection.

Public Sub GetFieldNames(strQueryName)
'   Get names of all Columns a query will return
   Dim rs As ADODB.Recordset, fld As ADODB.Field

   Set rs = New ADODB.Recordset
   rs.Open strQueryName, CurrentProject.Connection
   For Each fld In rs.Fields
       Debug.Print fld.Name
   Next
   rs.Close
   Set rs = Nothing
End Sub

Ron W

Tony,

Funny, I wrote this just today.

Public Function GetFieldNames(sQueryName As String) As String
   Dim qdf As DAO.QueryDef
   Dim fld As DAO.Field
   Dim sSQL As String

   Set qdf = CurrentDb.QueryDefs(sQueryName)
   For Each fld In qdf.Fields
       'SELECT [AllFieldNames] FROM qryCustDetails;
       sSQL = sSQL & "[" & fld.Name & "], "
   Next fld

   sSQL = Left(sSQL, Len(sSQL) - 2)
   sSQL = "SELECT " & sSQL & " FROM qryCustDetails"
   GetFieldNames = sSQL

   Set fld = Nothing
   Set qdf = Nothing
End Function

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
---------------------------

I think you want this

SELECT MSysQueries.Expression
FROM MSysObjects INNER JOIN MSysQueries ON MSysObjects.Id =
MSysQueries.ObjectId
WHERE (((MSysObjects.Name)="qryCustDetails") AND
((MSysQueries.Expression)<>""));

what is CBF?