use calendar control to filter report

[martinmike2]

Hello, I am trying to use two calendar controls to provide the
WhereCondition: for a report.

Private Sub cmdOpenRep_Click()
Dim stdocname As String, strPredicate As String
stdocname = "rptMonthHist"
dtStart = Me.Calendar5
dtEnd = Me.ActiveXCtl6
strPredicate = "tblMain.[COMPLETION DATE] > " & dtEnd & " AND < " &
dtStart
DoCmd.OpenReport stdocname, , , WhereCondition:=strPredicate
End Sub


I am getting a 'Missing Syntax' error

any ideas what im doing wrong?

 

[Rod Plastow]

Yes.

You must tediously renominate [COMPLETION DATE] in each and every
comparison; no shortcuts allowed unfortunately.

strPredicate = "tblMain.[COMPLETION DATE] > " & dtEnd & " AND
tblMain.[COMPLETION DATE] < " & dtStart

should get you going.

 

[Rod Plastow]

Just spotted that I think your operators are the wrong way round. Don't you
mean completion date is less than date end and greater than date start?

 

[martinmike2]

Yes.

You must tediously renominate [COMPLETION DATE] in each and every
comparison; no shortcuts allowed unfortunately.

strPredicate = "tblMain.[COMPLETION DATE] > " & dtEnd & " AND
tblMain.[COMPLETION DATE] < " & dtStart

should get you going.

Hello, I am trying to use two calendar controls to provide the
WhereCondition: for a report.

Private Sub cmdOpenRep_Click()
Dim stdocname As String, strPredicate As String
stdocname = "rptMonthHist"
dtStart = Me.Calendar5
dtEnd = Me.ActiveXCtl6
strPredicate = "tblMain.[COMPLETION DATE] > " & dtEnd & " AND < " &
dtStart
DoCmd.OpenReport stdocname, , , WhereCondition:=strPredicate
End Sub

I am getting a 'Missing Syntax' error

any ideas what im doing wrong?- Hide quoted text -

- Show quoted text -

worked like a champ, thnx for kickin my brain back into gear