URGENT:whats wrong with ths code??

[maya]

Criteria = ""
For Each i In Me!Combo18.ItemsSelected
Criteria = Criteria & " Or "
Criteria = Criteria & "[Machine Name]='" & Me.Combo18.ItemData(i)
Next i
DoCmd.OpenReport strDocname, acPreview, , Criteria


im using ths code to multiselect frm a listbox into one report but am having errors...pls help...thanx

 

[jaydwest]

Try this

Criteria = Criteria & "[Machine Name]='" & Me.Combo18.ItemData(i) & "'"


What do the error messages you are getting say?

 

[maya]

run-time error '3075':

Syntax error (missing operator) in query expression '(Or [Machine Name]='PQFP_WBH063' Or [Machine Name]='PQFP_WBH209')'.

pls help...thanx

 

[maya]

Example

could u give me an example?Thanx

 

[maya]

error

i put this:
Criteria = Criteria & "[Machine Name] ='" & Me.Combo18.ItemData(i) & "' " Or " "

and im having a type mismatch error........

 

[jaydwest]

Try This

Criteria = Criteria & "[Machine Name] ='" & Me.Combo18.ItemData(i) & "' Or "