StrCriteria

[Dutch1956]

I have a form with an optiongroup named frame32, and 4 dates named InvDate, InvDate1, DueDate and Duedate1. I am trying to open this form from an on click event on my switchboard with the following criteria:
When Frame 32 is 1, Then Invdate = < Date() and DueDate = < Date() and
When Frame 32 is 0, Then InvDate1 =<Date() and DueDate1=<Date().
I am trying to filter the records that are expired. I tried every possible combination of strings but am just not able to find one that works, probably because I am still a novice. Any help is really appreciated.

Thanks



Bert.

[pbaldy]

Why don't you post your effort and we'll fix it? Hard to know exactly what you're trying to do without seeing the code.

[Dutch1956]

This is what I tried:
Dim strCriteria As String
strCriteria = ""
strCriteria = "[PrePostPay] =" & 1 & "and [duedate]='" <= Date() & "'" & "[PrePostPay] =" & 0 & "and [duedate1]='" <= Date() & "'"
DoCmd.OpenForm "overdueinvoiceform", acNormal, , strCriteria

Bert

[June7]

Would certainly help to see your full procedure attempt. Can only guess you need something like:
If Me.Frame32 = 1 Then
DoCmd.OpenForm "formname", , , "Invdate =< #" & Date() & "# And DueDate =< #" & Date() & "#"
ElseIf Me.Frame32 = 0 Then
DoCmd.OpenForm "formname", , , "InvDate1 =< #" & Date() & "# And DueDate1=< #" & Date() & "#"
End If

[pbaldy]

You don't actually need to concatenate. Try:

strCriteria = "[PrePostPay] = 1 and [duedate]<= Date() AND [PrePostPay] = 0 and [duedate1]<= Date() "

[Dutch1956]

Thank you for the responses to my initial query. I think I was trying to do something that was not as easy as I thought it was. I was trying to sort dates that were in the same record. Luckily I found the solution which might not have been a little controversial. I created two queries with their own criteria and put them together in a Union All Query. Thanks again for the help.

[RuralGuy]

Are you ready to use the Thread Tools at the top of the thread and mark this thread as Solved?

[Dutch1956]

Thanks for reminding me and again, thanks for your help.