Re: Code not working
- From: "Allen Browne" <AllenBrowne@xxxxxxxxxxxxxx>
- Date: Sat, 21 Jan 2006 02:04:44 +0800
If you open your table in design view, what data type is the TOOnScene
field?
Immediately above the DoCmd.OpenReport line, see:
Debug.Print strWhere
Then when you open the report, open the Immediate Window (press Ctrl+G), and
see what it says is in the filter of the report.
Then type this into the Immediate Window:
? Reports!DailyDispatch.Filter
Hopefully that will help you to track down what is happening.
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"Jen" <Jen@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:364E27E7-470B-45F7-AEF1-04C97AE8C33C@xxxxxxxxxxxxxxxx
> Okay I got this off the internet and followed all the directions, it opens
> my
> report but displays all the dates not specific days. Please Help.....
>
>
> Private Sub Command4_Click()
>
> Dim strReport As String
> Dim strField As String
> Dim strWhere As String
> Const conDateFormat = "\#mm\/dd\/yyyy\#"
>
> strReport = "DailyDispatch"
> strField = "TOOnScene"
>
> If IsNull(Me.txtstartdate) Then
> If Not IsNull(Me.txtEndDate) Then
> strWhere = strField & " < " & Format(Me.txtEndDate,
> conDateFormat)
> End If
> Else
> If IsNull(Me.txtEndDate) Then
> strWhere = strField & " > " & Format(Me.txtstartdate,
> conDateFormat)
> Else
> strWhere = strField & " Between " & Format(Me.txtstartdate,
> conDateFormat) _
> & " And " & Format(Me.txtEndDate, conDateFormat)
> End If
> End If
>
> DoCmd.OpenReport strReport, acViewPreview, , strWhere
>
> End Sub
>
> Private Sub Command5_Click()
>
> DoCmd.Close acForm, Me.Name
>
> End Sub
>
.
- Follow-Ups:
- Re: Code not working
- From: Jen
- Re: Code not working
- Prev by Date: Re: How to goto a specific record as requested by the user
- Next by Date: Closing forms
- Previous by thread: Re: Code Not working
- Next by thread: Re: Code not working
- Index(es):
Relevant Pages
|