Applying string criteria to Where statement

[Ganymede]

I have a form with a listbox titled "CostReportAppealsWindow." When the form loads, I want to populate the listbox with data from a query titled "CostReportAppealsSplashQ". In doing so, I want to apply a filter to a field titled "Status," which can have one of four values: "Pending Paralegal Review, "Pending Associate Review", "Pending Partner Review" or "Complete". On form load, I want to filter out the "Complete" files. (I intend to make a toggle button to make the completes viewable after I figure out the Where statement logic.)

Here's the code that I built to acheive the desired outcome.

Private Sub Form_Load()Me.CostReportAppealsWindow.RowSource = ""
Dim strSource As String
Dim rc As String
rc = "Review Complete"
strSource = "SELECT  CostReportAppealID, [Appeal Deadline], CCN, [Hospital Name], FYE, [Issue Name], [Client Name], [Designated Paralegal], [Designated Attorney], [Status]   " & _
"FROM [CostReportAppealsSplashQ]" & _
"Where [Status] <> '*" & rc & "*' "
Me.CostReportAppealsWindow.RowSource = strSource
End Sub

The listbox populates just fine, but it does not apply the filter. "Review Complete" files appear in the listbox. Do I need to change the Where logic? I thought I was following the standard procedure for string query criteria. I researched this for a bit but couldn't find quite what I'm looking for. Any guidance would be greatly appreciated.

[CJ_London]

Debug print strsource - you’ll find your are missing a space before WHERE and have an extra one after *’

other issues - when using wild cards, you use like or not like rather than = or <>

And since you have the exact phrase to exclude, you shouldn’t need wild cards

[Welshgasman]

and have an extra one after *’

That is not going to matter, surely?

Why people never check what they construct is beyond me.

[CJ_London]

That is not going to matter, surely?

so you think ‘abc’ =‘abc ‘?

other issue is the OP says the value in the field is ‘complete’ but they are trying to exclude ‘review complete’. I presume that is a typo

[mike60smart]

Excuse my lack of knowledge but if the Listbox is based on a query why does the OP need VB in the Forms ON Load?
Surely he can apply the filter in the query?

[Welshgasman]

so you think ‘abc’ =‘abc ‘?

other issue is the OP says the value in the field is ‘complete’ but they are trying to exclude ‘review complete’. I presume that is a typo

rc = "Fred"
? "Where [Status] <> '*" & rc & "*' "
Where [Status] <> '*Fred*'

[Ganymede]

Debug print strsource - you’ll find your are missing a space before WHERE and have an extra one after *’

other issues - when using wild cards, you use like or not like rather than = or <>

And since you have the exact phrase to exclude, you shouldn’t need wild cards

Thank you so much. Getting rid of the wildcard did the trick. Marking as resolved.