Can't populate text box when form opens

I have a form that has a control, txtHoliday.  All I want is when this form opens, I want the box to fill with the holiday if it fall between Date-7 and Date+7.  But it simply keep erroring out.
Private Sub Form_Open(Cancel As Integer)
Dim dteHoliday As Date
dteHoliday = DMax("HolidayDate", "tblHolidays", "HolidayDate > Date() - 7 and HolidayDate < Date + 7")
    Me.cboAssociate = "<All>"
    Me.cboJobDay = "<All>"
    Me.cboProblemGroup = "<All>"
    Me.cboPeriod = "<All>"
    Me.txtDate = Date
   Me.txtHoliday = dteHoliday
End Sub

Open in new window

Who is Participating?
Scay7Connect With a Mentor Commented:
dteHoliday = DMax("HolidayDate", "tblHolidays", "HolidayDate > Date() - 7 and HolidayDate < Date + 7")

At the end of this "Date + 7" shouldnt that be "Date() + 7"
or visa versa
Middelish "date() -7" should be "Date - 7"

My 2 Cents :P
ssmith94015Author Commented:
You are so observant!  I did not even see it.

Np i code with Delphi and i do that to my self all the time :P lol
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.