Stop duplication of appointment

[Bob Fitz]

jzwp11



Thanks for attaching the A2003 version. May be it's something to do with my region, but I only works for me if the date criteria is formatted:

If DCount("*", "tblAppointments", "AppointmentDate=#" & Format(Me.AppointmentDate, "mm/dd/yyyy") & "# AND ApptTimeID=" & Me.lstTimes) > 0 Then
    MsgBox "The appointment time for the indicated date has already been reserved"
    Cancel = True
End If

[jzwp11]

SQL only sees dates as mm/dd/yyyy irregardless of your regional settings. Allen Browne has details on his site.

[cheyanne]

Hi Guys

Just a quick note to say that, with thanks to both your generous efforts, I have managed to produce frmAppointments.

Briefly if an assistant tries to "double book" an appointment, they get a MsgBox telling them so and asking them offer the Client another appointment time.

I also managed to put a sub form, in the bottom half of frmAppointments, which shows appointments that have been already booked for that day.
This will serve as a very useful visual display for those wanting to book an appointment for a Client.

I am really pleased with the end product and send my sincere thanks for both your efforts.

I shall now mark the post Solved.


Regards from Spain


Cheyanne

[jzwp11]

I'm glad Bob & I were finally able to get you to a solution. Good luck with your database.