Text from List Box in report header

[Nancy]

I have a text field with control source =report.sOpenArgs in my report header
to display items selected in the list box lbdefendant, The code below returns
the value stored rather than the text, how do I get the text?

Dim sOpenArgs as String
Dim stDocName as String

stDocName = "rptMasterDepositions"

For Each varItem In Me.lbDefendant.ItemsSelected
sOpenArgs = sOpenArgs & ",' " & Me.lbDefendant.ItemData(varItem) &
"'"
Next varItem

DoCmd.OpenReport stDocName, acViewPreview, ,,, , sOpenArgs

I have a text field with control source =report.sOpenArgs in my report
header to display items selected in the list box lbdefendant, The code below
returns the value stored rather than the text, how do I get the text?

 

[Roger Carlson]

Try this (untested):

sOpenArgs = sOpenArgs & ",' " & Me.lbDefendant.ItemData(varItem).Columns(1)
& "'"

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[Nancy]

I get message: "object required"
--
nancye

Try this (untested):

sOpenArgs = sOpenArgs & ",' " & Me.lbDefendant.ItemData(varItem).Columns(1)
& "'"

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[Roger Carlson]

Sorry, that's what I get for not testing. Try this instead:

sOpenArgs = sOpenArgs & ",' " & Me.lbDefendant.Column(1, varItem) & "'"

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[Nancy]

Thanks that worked