MJBag7UF

Avoiding clashing appointments Access
Employee(Id,name etc)
Appointment(Id,date,time,employee id, clientid etc)
Client(Id,name etc)

Timeslots:
EmployeeID ) Primary key
TimeSlot   )
JobID      - Foreign key
Status     ) And so forth
Notes      )

SELECT TimeSlots.EmployeeID, TimeSlots.TimeSlot, TimeSlots.JobID
FROM TimeSlots
WHERE TimeSlots.EmployeeID=1
AND TimeSlots.TimeSlot Between #2/9/2012 9:0:0# And #2/9/2012 11:30:0#

SELECT TimeSlots.EmployeeID, TimeSlots.TimeSlot, TimeSlots.JobID
FROM TimeSlots
WHERE TimeSlots.TimeSlot Between #2/9/2012 9:0:0# And #2/9/2012 9:30:0#

RequestStartDate = StartDate

RequestStartTime = StartTime
And
RequestDate = BookingDate

dim strWhere                 as string
dim dtRequeestStartDate      as date
dim dtRequestEndDate         as date

dtRequestStartDate = inputbox("Enter start Date")
dtRequestEndDate = inputbox("Enter end date")

strWhere="#" & format(dtRequestStartDate,"mm/dd/yyyy") & "# = StartDate"


if dcount("*","tableBooking",strWhere) > 0 then
    msgbox "sorry, you cant book
...bla bla bla....