Access Form VBA problem

[jysharp2003]

Hi! Access question here.
I have three entry fields in a form. VBA mouse over I see the entries except on the last line of code below. I am not sure if my concatenate of these three values are formatted right. Form runs with full content because the values are not being recognized.
"'strrangecategory' & 'strFromDate' & 'strToDate'"
is the troubled string I think. Entry is From thru To date with a desired category (NULL for all). UG!
Here is the function below....can anybody help?
+++++++++++++++++++++++++++++
Private Sub Command99_Click()
Dim strFromDate As String
Dim strToDate As String
Dim strrangecategory As String





strFromDate = "adj_date_post >= '" & FromDate & " '"
strToDate = "adj_date_post <= '" & ToDate & "'"
strrangecategory = "category = '" & rangecategory & " '"



If IsNull(rangecategory) Then
DoCmd.Close
DoCmd.OpenForm "search_payee_budgetchk", acNormal, , "'strFromDate' & 'strToDate'"
Else
DoCmd.OpenForm "search_payee_budgetchk", acNormal, , "'strrangecategory' & 'strFromDate' & 'strToDate'"
End If



End Sub


Thanks!

[RuralGuy]

Quotes are needed not not the way you have them in the WhereCondition argument.

If IsNull(rangecategory) Then
   DoCmd.OpenForm "search_payee_budgetchk", , , strFromDate & " AND " & strToDate
Else
   DoCmd.OpenForm "search_payee_budgetchk", , , strrangecategory " AND " & strFromDate " AND " & strToDate
End If
DoCmd.Close

...and notice I moved that Close statement.

[jysharp2003]

Thanks RuralGuy,
Below is adjusted code. I have a data type mismatch on the line of code underlined below. Mousing over the variables it does show my entries so I think I am close. Tried changing the declaring statements to Dates but no difference. Left them as string. Any idea?

Private Sub Command99_Click()
Dim strFromDate As String
Dim strToDate As String
Dim strrangecategory As String

strFromDate = "adj_date_post >= '" & FromDate & " '"
strToDate = "adj_date_post <= '" & ToDate & "'"
strrangecategory = "category = '" & rangecategory & " '"

If IsNull(rangecategory) Then
DoCmd.Close
DoCmd.OpenForm "search_payee_budgetchk", , , strFromDate & " AND " & strToDate
Else
DoCmd.OpenForm "search_payee_budgetchk", , , strrangecategory & " AND " & strFromDate & " AND " & strToDate
End If

[RuralGuy]

What is the FieldType of the rangecategory field?

[RuralGuy]

It looks like I might have overlooked a couple of other issues:
strFromDate = "adj_date_post >= #" & FromDate & "# "
strToDate = "adj_date_post <= #" & ToDate & "# "

[jysharp2003]

Rural. Thanks and now I can continue to work the weekend. I will close the thread.

[RuralGuy]

Great! Just follow the link in my sig for an explaination on how to mark the thread as Solved.