Modules & VBA :: Form For Scheduling Appointments - Display Timeslot In Combobox

I created a form for scheduling appointments on access 2013 using a youtube tutorial. I got most of it work apart from the combo box that functions in a way that once the time slot has booked with a client it should no longer be shown in the list.

E.g.:-2/2/2014 10:00AM is already booked with a client

The combo box should no longer display the 10:00 AM timeslot but can be shown on other days

Below is the VBA code that i typed out. How to create the code to make the combo box work in that manner.

Option Compare Database

Private Sub cboTime_Enter()
Dim i As Date, n As Integer, oRS As DAO.Recordset, sSQL As String
Dim dLowerbreak As Date, dUpperBreak As Date, dDuration As Date
Dim dLowerPrecision As Date, dUpperPrecision As Date
cboTime.RowSourceType = "Value List"

[Code] ....

I found out that the combo box does not work like it does in the video i.e the option does not dissaspear even though their has been a booking with that time slot with another client.

Coding that is required to make the combo box work like that or is their an error within the code that is preventing the combo box to work in such manner ...