Open form criteria

[dan-cat]

It's a sunny day outside but I'm stuck in here struggling with a relatively simple piece of code:

Dim Kount As Integer
Dim DKount As Date
Kount = Forms!Main!DateCount
DKount = DateAdd("d", Kount, Now() - 1)
MsgBox DKount
DoCmd.OpenForm "frmDenBookingDay", , , "DenId=Forms!Main!DenId And Date Between Now() And DKount"

All I want to do is open the form with the given date criteria.
I have managed to open a msgbox displaying the correct date, however when attempting to pass that date in the criteria of the open form command it doesn't see it.

Can anyone help?

ThankYou

 

[Tim K.]

Try this.

DoCmd.OpenForm "frmDenBookingDay", , , "DenId=" & Forms!Main!DenId & " And Date Between " & Now() & " And " & DKount

 

[dan-cat]

Sorry Tim, I'm getting a syntax error, missing operator message on that code

 

[Pat Hartman]

DoCmd.OpenForm "frmDenBookingDay", , , "DenId=" & Forms!Main!DenId & " And Date Between #" & Date() & "# And #" & DKount & "#"