I may have spoken too soon, as it comes up with the duplicate entry message every time I try to enter an employee's leave dates, and I know that they are not in the table.
Private Sub StartDate_Change()
If DCount("*", "Tbl_Calendar", "EmployeeID = Forms!frmLeaveApplication!EmployeeID And...