Database 显示相同ID的所有记录

我正在做一个Access项目，我需要一些帮助

我有两个表，第一个名为tblHoliday，其中的字段（ID、OfficeId、OffType、From、To）[From]和[To]是日期字段

第二个表是带有字段（ID、OfficeId、Date）的tblService。 每个表中的[OfficeId]之间都有关系

在表tblService中，每个[OfficeId]可能有两条或更多记录，， 我为tblHoliday设计了一个表格来输入官员的假期，我的问题是（我需要检查表tblService中[From]和[to]之间的同一[OfficeId]是否有[Date]，表tblHoliday中的OfficeId是否有[Date]，例如：一名官员要求从2017年1月1日到2017年1月10日休假，如果他在2017年1月3日提供服务，他会给出一条消息“该官员于2017年1月3日任职”

我的代码有效，但仅适用于同一OfficeId的tblService中的第一条记录

    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

Dim dtmMyDate作为日期
dtmMyDate=DLookup（“日期”、“tblService”、“OfficeId=”&Me.OfficeId）
如果dtmMyDate>Me.From和dtmMyDate

创建查询：

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

---

从中打开一个记录集，或将其分配到列表框，以循环或列出违规的服务天数。

谢谢您的回答。.但我真的不明白。.当我输入数据时，我需要的只是表单中的一个MsgBox，然后将此查询作为记录集打开，并循环此查询，将找到的每个官员的姓名添加到字符串变量中。前缀a

vbCrLf

如果不是第一条记录。最后，使用变量作为消息框的提示，以显示名称列表。