S
SF
Hi,
I have a multi selected listbox. How can I refer to the second column of the
listbox?
Me.lstContract.ItemData(varItem).column(1) ???
Dim varItem As Variant
For Each varItem In Me.lstContract.ItemsSelected
gstrReportFilter = "[Ck_ContractID]='" &
Me.lstContract.ItemData(varItem) & "'"
''DoCmd.OpenReport "rptCoFundActivity_k" '', , , gstrReportFilter
DoCmd.OpenReport "rptCostShareContribution_k", acViewPreview '', ,
gstrReportFilter
Next varItem
SF
I have a multi selected listbox. How can I refer to the second column of the
listbox?
Me.lstContract.ItemData(varItem).column(1) ???
Dim varItem As Variant
For Each varItem In Me.lstContract.ItemsSelected
gstrReportFilter = "[Ck_ContractID]='" &
Me.lstContract.ItemData(varItem) & "'"
''DoCmd.OpenReport "rptCoFundActivity_k" '', , , gstrReportFilter
DoCmd.OpenReport "rptCostShareContribution_k", acViewPreview '', ,
gstrReportFilter
Next varItem
SF