Date Range for Report

B

BMaerhofer

Hello,
I am trying to program a range of dates to determine which version of the
report that should be pulled. Here is the criteria:

rptINITIALLETTER2 = 6/1/08 and newer based from when First Letter was sent
rptINITIALLETTER1 = 5/31/08 through 12/5/06
rptINITIALLETTER = Any others before 12/5/06 or by record number

I have the code listed below. Letter 2 seems to be working properly, it is
just the other two that keep causing me trouble. I keep changing the order
of the code for the date range to try to fix it and it causes either letter
or letter1 to work, but not both together. So I just need to get the range
set correctly and it should work.
(<= #12/5/2006# > #5/31/2008#) - Changed this around quite a bit to try to
get it to work correctly. Please Help!
------------------------------------------------------------------------------------------------

If dtFirstLetter.Value > #6/1/2008# Then
strCriteria = "[Record ID] = " & intID.Value
Select Case modMatch.intLetter
Case 1
DoCmd.OpenReport "rptINITIALLETTER2", acViewPreview,
"qryInitialLetter", strCriteria
Case 2
DoCmd.OpenReport "rptINITIALLETTER2", acViewPreview,
"qryInitialLetterDEERS", strCriteria
End Select


ElseIf dtFirstLetter.Value <= #12/5/2006# > #5/31/2008# Then
strCriteria = "[Record ID] = " & intID.Value
Select Case modMatch.intLetter
Case 1
DoCmd.OpenReport "rptINITIALLETTER1", acViewPreview,
"qryInitialLetter", strCriteria
Case 2
DoCmd.OpenReport "rptINITIALLETTER1", acViewPreview,
"qryInitialLetterDEERS", strCriteria
End Select
Else


If NLET.Value = False Then
strCriteria = "[Record ID] = " & intID.Value
Select Case modMatch.intLetter
Case 1
DoCmd.OpenReport "rptINITIALLETTER", acViewPreview,
"qryInitialLetter", strCriteria
Case 2
DoCmd.OpenReport "rptINITIALLETTER", acViewPreview,
"qryInitialLetterDEERS", strCriteria
End Select
Else


THANKS!!!!
 
K

Klatuu

You have to state the comparison explicitly for each compare:

ElseIf dtFirstLetter.Value <= #12/5/2006# > #5/31/2008# Then

Should be

ElseIf dtFirstLetter.Value <= #12/5/2006# And dtFirstLetter.Value >=
#5/31/2008# Then


Note: The Value property is not required. It is the default property for a
form control

ElseIf dtFirstLetter <= #12/5/2006# And dtFirstLetter >= #5/31/2008# Then

works the same way. The only time I have use the Value property is when I
am using a With/End With on a control and I need to test the value.

With txtSomeControl
If .Value = "fooo" Then
.Undo
MsgBox "No " & .Value & " Allowed Here"
Cancel = True
End If
End With
 
B

BMaerhofer

Thanks! The code fixed my issue.
--
BWM


Klatuu said:
You have to state the comparison explicitly for each compare:

ElseIf dtFirstLetter.Value <= #12/5/2006# > #5/31/2008# Then

Should be

ElseIf dtFirstLetter.Value <= #12/5/2006# And dtFirstLetter.Value >=
#5/31/2008# Then


Note: The Value property is not required. It is the default property for a
form control

ElseIf dtFirstLetter <= #12/5/2006# And dtFirstLetter >= #5/31/2008# Then

works the same way. The only time I have use the Value property is when I
am using a With/End With on a control and I need to test the value.

With txtSomeControl
If .Value = "fooo" Then
.Undo
MsgBox "No " & .Value & " Allowed Here"
Cancel = True
End If
End With
--
Dave Hargis, Microsoft Access MVP


BMaerhofer said:
Hello,
I am trying to program a range of dates to determine which version of the
report that should be pulled. Here is the criteria:

rptINITIALLETTER2 = 6/1/08 and newer based from when First Letter was sent
rptINITIALLETTER1 = 5/31/08 through 12/5/06
rptINITIALLETTER = Any others before 12/5/06 or by record number

I have the code listed below. Letter 2 seems to be working properly, it is
just the other two that keep causing me trouble. I keep changing the order
of the code for the date range to try to fix it and it causes either letter
or letter1 to work, but not both together. So I just need to get the range
set correctly and it should work.
(<= #12/5/2006# > #5/31/2008#) - Changed this around quite a bit to try to
get it to work correctly. Please Help!
------------------------------------------------------------------------------------------------

If dtFirstLetter.Value > #6/1/2008# Then
strCriteria = "[Record ID] = " & intID.Value
Select Case modMatch.intLetter
Case 1
DoCmd.OpenReport "rptINITIALLETTER2", acViewPreview,
"qryInitialLetter", strCriteria
Case 2
DoCmd.OpenReport "rptINITIALLETTER2", acViewPreview,
"qryInitialLetterDEERS", strCriteria
End Select


ElseIf dtFirstLetter.Value <= #12/5/2006# > #5/31/2008# Then
strCriteria = "[Record ID] = " & intID.Value
Select Case modMatch.intLetter
Case 1
DoCmd.OpenReport "rptINITIALLETTER1", acViewPreview,
"qryInitialLetter", strCriteria
Case 2
DoCmd.OpenReport "rptINITIALLETTER1", acViewPreview,
"qryInitialLetterDEERS", strCriteria
End Select
Else


If NLET.Value = False Then
strCriteria = "[Record ID] = " & intID.Value
Select Case modMatch.intLetter
Case 1
DoCmd.OpenReport "rptINITIALLETTER", acViewPreview,
"qryInitialLetter", strCriteria
Case 2
DoCmd.OpenReport "rptINITIALLETTER", acViewPreview,
"qryInitialLetterDEERS", strCriteria
End Select
Else


THANKS!!!!
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Access Mail Merge to Word.doc files ? 1
Launching Report from Form Only Shows Report for First Record 5
Select Case with date range 11
Problem defining multiple criteria 2
Help with WHERE filter on opening report from dialog 4
Error 2001 Canceled operation 6
Calculate # of Hiolidays within a Date Range 1
Noob VB code, Need help with Passing multiSelect Listbox 6

Top