format access report so that records will run horizontally instead of vertically

<<I have copied and tweaked code.  Could anyone give me a code example?>>
  Sure, I just wasn't quite sure where to start.  First thing we need to get right though is the datasource for the report.  You are going to want one record per child/ancestor pair.  Do that with a query ( I think your already there unless what you posted above was done with a subreport).
  As far as the logic, there are a few ways to do this and I'm going to show you the one that uses the least amount of code possible.

0. Add a string variable, strChildrensNames to the reports declaration section.
1. Add a report group on the ancestorID and indicate that you want a header and a footer.
2. Set the ancestor group header's visible property to false
3. Add the following code to the OnFormat event of the header:

  strChildrensNames = ""
4. Set the detail's section visible property to false
5. Add two controls for the childs name (first and last) to the detail section.  These will be the only two controls in that section.  Call them txtChildsFirstName and txtChildsLastName (if you already have controls there, select them and move then down to the report footer).
6. Add the following code to the Detail section's OnFormat event:
If FormatCount = 1 Then
  strChildrensNames = strChildrensNames & ", " & Me.txtChildsLastName & ", " & Me.txtChildsFirstName
End If
7. Make sure the group footers visible property is True
8. Place all the controls you need here for the ancestor info.
9. Add one un-bound control to hold the childern's names were collecting in the OnFormat event in the detail section.  Call it txtChildrensNames
10. Add the following code to the OnFormat event of the group footer:

  Me.txtChildrensNames = Mid$(strChildrensNames, 3)

All right...that's it.  Here's what is happening:

Were getting one record per child/ancestor pair and we've set the grouping on the ancestor, with the header for that group and the detail section set so they won't print.  What we'll get then is one line on the report (the group footer) for each ancestor.

But even though the group header and detail section are not visible, any code we have there still get's done. The report engine will do group header when the ancestor changes and the detail section for each record in the recordsource.  

In the instructions above, the code clears the variable were using to hold the names, and the detail section code collects each childs name and saves it in strChildrensNames.
When the report engine hits the last child record for an ancestor, it will do the report footer.  It's here that you print the ancestor info required and where we take the children's names we've collected and place them in a control in the group footer.
 The Mid$() function is stripping out the comma and space that appears at the start of the names.
  There are other methods that you can do to do this (utilizing MoveLayout, NextRecord, and PrintSection properties), but that is more complex and overkill for what you're trying to do here.
 Give it a swing and if you get stuck, let me know and I can whip up a sample.

JimD.