Dynamic report

[zoro25]

Hi,

I want to create a dynamic report and for that I'm using a very simple Combo Box (only one item) and I want to use this filter on my report. Here's the code I came up with:

Private Sub Enter_Click()
Dim strSite_Name As String
Dim strEnter As String

If IsNull(Me.cboSite_Name.Value) Then
strSite_Name = "Like '*' "
Else: strSite_Name = "='" & Me.cboSite_Name.Value & "'"
End If


With Reports![rptScoring]
.Filter = strEnter
.FilterOn = True
End With
End Sub

My report is open but if I press enter, absolutely nothing happens... so now I'm confused, what do I do wrong???

Marie

[zoro25]

Ok, I figured out most of my issues, the code works fine if my filtering item is a primary key, if not, it doesn't work. Any idea why?

Thanks

Marie

[MMcCarthy]

Ok, I figured out most of my issues, the code works fine if my filtering item is a primary key, if not, it doesn't work. Any idea why?

Thanks

Marie

You have declared two variables strSite_Name and strEnter

you set the filter value to the first and set the filter to run on the second which is empty