Items from listbox to report

[davorins]

Greetings,

I am looking for someone that could help me with the following
situation.

I have a listbox on the form that contains x amount of rows that user
populates. I'd like to move all those rows to report in MS Access. Row
Source Type is based on Valuelist not on table/query.

However, I am only able to pass the selected row and this is the line I
entered in the control source of the text box in the Report:

For Quantity: =[Forms]![QuoteDetail]![lstResults2].Column(0) & "" &
Chr$(10)

Part Number: For Quantity:
=[Forms]![QuoteDetail]![lstResults2].Column(1) & "" & Chr$(10)

Description: For Quantity:
=[Forms]![QuoteDetail]![lstResults2].Column(2) & "" & Chr$(10)

Price: For Quantity: =[Forms]![QuoteDetail]![lstResults2].Column(3) &
"" & Chr$(10)

so the result in the report would look like this:
Quantity Part Number Description Price
1 SUPP-0118 blah blah blah $xxx

As I mentioned earlier I'd like to be able to pass all of the items to
the report. I also included following code in the "Report_Open" event
but for some reason it doesn't work...?

Dim i As Long
Dim str As String

With Me!lstResults2


For i = Abs(.ColumnHeads) To (.ListCount - 1)


str = "'" & .Column(0, i) & "' , " & _
"'" & .Column(1, i) & "' , " & _
"'" & .Column(2, i) & "' , " & _
"'" & .Column(3, i) & "'"

stDocName = "rptQuote"
DoCmd.OpenReport stDocName, acPreview


Next i

End With


-----------------------------------------------------

Please tell me what am I doing wrong. I am new to this kind of things
so please be gentle

Thanks in advance

-Rino

 

[pietlinden]

base report on table/query. Filter with listbox... see code at
www.mvps.org for limiting the contents of a report with a listbox. Why
are you so averse to doing things the easy way, using tables and
queries? I mean, I suppose you could populate your report that way,
but then again, you could dig the foundation for a house with a
spoon... but who would want to?