It requires some tricky VBA to accomplish this.  You set up *unbound* textboxes (and labels) in your report.  In the report's Open event, you use VBA to pull out the field names from the crosstab query.  Put those names into the captions of the labels, and you get the column headers.  Put those field names into the *control source* of the unbound textboxes in the report detail section.  The resulting code would look something like the picture below.  In my example, I have labels named colhead0, colhead1, colhead2, etc.  And I have textboxes in the report detail named rowvalue0, rowvalue1, rowvalue2, etc.  Note how I use a For Next loop to refer to them, to avoid repetitious coding.

There are some caveats:

(1) You have to set a maximum number of columns in your report, obviously, because a report can only be so wide.  So you need to have an idea of how high the column count may be.  If the count is higher than you anticipated, some of the data will be cut off from the report, naturally.

(2) Access alphabetizes column heading names in a crosstab query.  For instance, i you have months in the columns, they will be shown alphabetically instead of chronologically: Apr, Aug, Dec, Feb, Mar, Jan, Jul, Jun, Oct, Sep, etc.  So you may need to find a way to sort the column headers (within the VBA) in the order you desire before you put them on the report.

Thanks very much Kevin for your wisdom solving this - I will test soon. The maximum number of columns (products) is 10, so I should be able to format this OK. And alphabetical ordering of the products is fine too but thanks for pointing that out.

Hi Kevin, I tried your solution with some success. The column headers work fine, but the field values do not, displaying #Name? instead of the values.

My VBA (only amended to match my camel casing) is...

Option Compare Database
Option Explicit

Private Sub Report_Open(Cancel As Integer)
' Sets the fields and values for this report dynamically, based on the columns returned by the query
    
    Dim intNumColumns As Integer
      
    
    Dim r As Recordset, f As Variant, i As Integer
    Set r = CurrentDb.OpenRecordset("ActivitiesSelectedQ_Crosstab")
    
    intNumColumns = r.Fields.Count - 1  ' remove count by one as loop begins at zero.
    
    For i = 0 To intNumColumns
       Me("colHead" & i).Caption = r.Fields(i).Name
       Me("rowValue" & i).ControlSource = r.Fields(i).Name
    Next
End Sub

Any thoughts?

Thanks, Dominic.

Have you set the Record Source for the Report?

Kevin, thanks.  Dominic, Kevin is correct.  I thought that was a matter of course, but should've mentioned it too.  The OpenRecordset in the VBA code gives you the column headers.  But the actual row data are from the record source on the report's property sheet.  That is why you see the headers and not the rows.

This can also be done in VBA.  Add the line below anywhere in the report's Open event:

    Me.RecordSource = "ActivitiesSelectedQ_Crosstab"

Thanks to you both - that works fine. I thought the 'ControlSource' was fetching the data, but now I understand that it provides the 'key' to link with the query's output.