Solved

Need Between.. And to work with criteria from dialog box

Posted on 2008-10-10
4
326 Views
Last Modified: 2012-05-05
I am putting together a report that will list calls received for a one week period.  I created a dialog box so that the user can input the start date.  In my query in the DATE field I tried to put the following criteria, but its not working.

Between [Forms]![frmWklyDialog]![StartDate] And [Forms]![frmWklyDialog]![StartDate]+7

I need it to pull records dated between whatever they enter in for the start date and the start date plus seven days.

Thanks
0
Comment
Question by:MissB618
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
4 Comments
 
LVL 7

Expert Comment

by:rheitzman
ID: 22691339
You can use a Where clause on the OpenReport method. The sample below adds one month. You can use "ww" for a week or "d" for days. See help for DateAdd().
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    Dim stDocName As String
    Dim stWhere As String
 
    stDocName = "Report1"
    stWhere = "Last_Update_Date BETWEEN #" & Me.txtStartDate _
        & "# AND #" & DateAdd("m", 1, Me.txtStartDate) & "#"
    DoCmd.OpenReport stDocName, acPreview, , stWhere
 
Exit_Command0_Click:
    Exit Sub
 
Err_Command0_Click:
    MsgBox err.Description
    Resume Exit_Command0_Click
End Sub

Open in new window

0
 
LVL 120

Accepted Solution

by:
Rey Obrero (Capricorn1) earned 500 total points
ID: 22691518
if your ( DATE field ) is DateTime data type

Between cdate([Forms]![frmWklyDialog]![StartDate]) And cdate([Forms]![frmWklyDialog]![StartDate])+7
0
 
LVL 44

Expert Comment

by:GRayL
ID: 22692619
In a control source in a dialog box, you cannot enter a query.  Please be very specific about what you are tryin to do.
0
 
LVL 26

Expert Comment

by:dannywareham
ID: 22694075
I would change the code only slightly to ensure that you get date entries (cos if you don't your query will fail):
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    Dim stDocName As String
    Dim stWhere As String
    Dim myStartDate as String
 
myStartDate = nz(Me.txtStartDate,"Empty")
 
If Not IsDate(myStartDate) then
    Msgbox "You must enter a date for the start",vbokonly,"Error"
    Me.txtStartDate.Setfocus
End if
 
    stDocName = "Report1"
    stWhere = "Last_Update_Date BETWEEN #" & format(myStartDate,"dd-mmm-yyyy") & "# AND #" & DateAdd("m", 1, format(myStartDate,"dd-mmm-yyyy")) & "#"
    DoCmd.OpenReport stDocName, acPreview, , stWhere
 
Exit_Command0_Click:
    Exit Sub
 
Err_Command0_Click:
    MsgBox err.Description
    Resume Exit_Command0_Click
End Sub

Open in new window

0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Technology opened people to different means of presenting information, but PowerPoint remains to be above competition. Know why PPT still works today.
AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…

759 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question