How do I pass no criteria to Query through my function? 1

[ThinWhiteDude]

Hopefully, this is the right forum to post this question to.

With the help of several posts on the forum, I have been able to set a variable as criteria in a select query via a form. I used the visual QBE to create this query, and use a function to pull in the variable for the criteria, so I didn’t write the SQL for it.

Here’s the project background:
I have set up a form for users to click a button to run a report for their department. A variable is set in the click event of each department button to hold the string name of their department(strLocation). I have a function that then sets a (public) variable with this department name. Like this:

From the form:

    SetLoc (strLocation)

Here are the functions:

Function SetLoc(strLocation As String)
    If strLocation <> "All Depts" Then
        gstrLoc = strLocation
    Else
    End If
End Function

For the Department criteria in the query, I call the GetLoc function.

Function GetLoc() As String
    GetLoc = gstrLoc
End Function

Everything works just fine. However, I need to be able to allow for all records to be pulled in when they click on the “All Depts” button. So, in effect, no criteria. I am stuck on how to pass that on to the function, or set it in the function if necessary.
So. . .
Using this function, how can I pass the equivalent of no criteria to the query?

As always, any help will be much appreciated
TWD

 

[Trevil]

Change your query selection criter from:
GetLoc()
to:
Like GetLoc()

Then where you want ALL, set variable gstrLoc to "*"

"Hmmm, it worked when I tested it....

 

[ThinWhiteDude]

Trevil,

Thank you so Much!!!!

And have a star for helping me. . . Yes, I did test it and it works like a charm.

Hope your day is as nice as mine is now going to be!
TWD