I am very grateful. I personally thanked him for everything, the question is to tell me what to change because I do not understand you ... :(
This is the Code that does not work:
HasDate = (DCount("*", "tblHoroscope", "HoroscopeDate = #" & Format(theDate, "MM/DD/YYYY") & "#") > 0)
And this is...