Показать все записи для одного ID

Question

я работаю над проектом Access и мне нужна помощь с чем-то ..

У меня есть 2 таблицы, первый названный tblHoliday, с полями (ID, OfficerID, OffType, От , To) [From] и [To] - поля даты.

Вторая таблица - tblService с полями (ID, OfficerID, Date). В каждой таблице есть отношения между [OfficerID].

Каждый [OfficerID] может иметь две записи или более в таблице tblService ,, я разработал форму для tblHoliday ввести отпуск офицера, мой вопрос (я должен проверить если [Дата] для тот же [OfficerID] в таблице tblService между [From] и [To], для OfficerID в таблице tblHoliday), например: офицер просит отпуск с 01.01.2012 по 10/10/2017, если у него есть услуга в 1/3/2017 даст сообщение «офицер службы на 1/3/2017»

Мой код работает, но только для первой записи в tblService для одной и той же OfficerID

Dim dtmMyDate As Date 
    dtmMyDate = DLookup("Date", "tblService", "OfficerID = " & Me.OfficerID) 

    If dtmMyDate > Me.From And dtmMyDate < Me.To Then 
     MsgBox "The Officer has a Service" 
    Else 
     MsgBox "Done" 
    End If 

Answer 1

Создать запрос:

Select 
    tblService.* 
    tblHoliday.* 
Where 
    tblService.OfficerID = tblHoliday.OfficerID 
    And 
    tblService.Date Between tblHoliday.From And tblHoliday.To 

Откройте записей из этого или присвоить его ListBox либо петли или перечислить обижая службы дней.