Why is "false" showing up in my criteria?

[Gina Maylone]

Banging my head already this morning! Trying to open a report using the criteria from 2 multiselect list boxes:

Private Sub Command37_Click()Dim strLinkCriteria As String
Dim varItem As Variant
    Dim str As String
Debug.Print str


strLinkCriteria = strLinkCriteria = "[bidstatus] In ("
 
For Each varItem In Me.BidStatus.ItemsSelected
      strLinkCriteria = strLinkCriteria & "'" & Me.BidStatus.ItemData(varItem) & "', "
Next
 
strLinkCriteria = Left(strLinkCriteria, Len(strLinkCriteria) - 2) & ")"
 
DoCmd.Openreport "BidReportbyMfrSummary", acViewPreview, , strLinkCriteria


End Sub

Somewhere I'm picking up a "false"


Yet, debug.print shows it correctly: Where BidStatus IN ('Open/Quote')

Where can I find this mysterious false?

Thanks in advance!

[ranman256]

You don't need any code to do this.
use a query. No errors in a query.
but,

=Left(strLinkCriteria, Len(strLinkCriteria) - 2) )

[Welshgasman]

Here?

strLinkCriteria = strLinkCriteria = "[bidstatus] In ("