Multi selected list for citerias in a DoCmd.OpenReport

[jondion80]

Hi everybody! My problem is: I'm trying to put a var (who contains some values from a multi selected list) in a DoCmd.OpenReport. Please help me! Thanks!

Dim crit As String

If (crit <> &quot;&quot Then
crit = crit & &quot; AND [C16-VEND]= forms!Form1![myListBox]&quot;
Else: crit = crit & &quot;&quot;&quot; [C16-VEND]= forms!Form1![myListBox]&quot;
End If


DoCmd.OpenReport &quot;report1&quot;, acViewPreview, , &quot;GetValue(crit)&quot;

 

[grnzbra]

The GetValue(crit)seems a little strange to me, but I may be wrong.

I think your statement should be something like:
crit = crit & &quot; AND [C16-VEND]= &quot; & forms!Form1![myListBox]

Also, depending on what the output of the listbox is you may or may not need a single quote around the listbox statement.