Filtering a Report with a combo box (1 Viewer)

[King Kreglo]

Firstly, sorry for all the questions today, the help is appreciated though

I have a form that filter records off of combo, I want the user to run reports based off of the filter selected in the combo box.

Here's the code I've been toying around with:

Private Sub ReQuote_Click()

Dim strCustomer As String
Dim Filter As String
    If IsNull(Me![cboFilter]) Then Exit Sub
        
        strCustomer = Nz(Me.cboFilter, "*")
        Filter = "strCustomer = "" & strCustomer""      "
        'Filter ="strCustomer = "" & Me.cboFilter""
    DoCmd.OpenReport "tblOrder Details", acViewReport, Filter
        
End Sub

I ripped it off of another thread on here but my needs are slightly different so I couldn't quite get it to do what I wanted, any ideas?

 

[pbaldy]

This should help:

http://www.baldyweb.com/wherecondition.htm

But note I'm pretty sure you have it in the wrong position.

 

[King Kreglo]

But note I'm pretty sure you have it in the wrong position.

Not sure what you mean by wrong position! I'm still an Access Amateur....

I plugged in your code though like so:

DoCmd.OpenReport "tblOrder Details", , , "Customer = " & Me.cboFilter & "'"

and it came up with this error:
Run-timer error'3075':
Syntax error in string in query expression 'Customer = John Doe".

Seems like it's close, just not sure where to go next!

 

[King Kreglo]

Just to be clear here:

I was hoping to the report by customer!

 

[pbaldy]

You missed the single quote before the value. Try

DoCmd.OpenReport "tblOrder Details", acViewPreview, , "Customer = '" & Me.cboFilter & "'"

By position, I meant you were sitting instead of standing when you typed it.

Kidding, I meant in the wrong argument, ie the number of commas that came before it.

 

[King Kreglo]

Hah! That made me 'lol'

That worked great though!!! Thanks so much!

 

[pbaldy]

Happy to help!