Alle Datensätze für die gleiche ID

Question

ich auf einem Access-Projekt gerade arbeite und ich brauche etwas Hilfe ..

Ich habe 2 Tabellen, erste genannt tblHoliday, mit Feldern (ID, OfficerID, OffType, Aus , To) [Von] und [Bis] sind Datumsfelder.

Die zweite Tabelle ist tblService mit Feldern (ID, OfficerID, Date). Es gibt eine Beziehung zwischen [OfficerID] in jeder Tabelle.

Jedes [OfficerID] zwei Datensätze oder mehr in einer Tabelle tblService haben ,, habe ich ein Formular für tblHoliday des Offiziers Urlaub geben, meine Frage ist, (i Wenn [Datum] überprüfen müssen für die gleiche [OfficerID] in der Tabelle tblService zwischen [From] und [To], für OfficerID in der Tabelle tblHoliday), Beispiel: Ein Officer fragt nach einem Urlaub vom 1.1.2017 bis zum 1.10.2017, wenn er einen Service hat in 2017.01.03 wird eine Mitteilung geben „der Offizier hat einen Dienst auf 2017.01.03“

Mein Code funktioniert, aber nur für den ersten Datensatz in tblService für den gleichen 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

Erstellen Sie eine Abfrage:

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

Öffnen Sie ein Cord- aus diesem oder es zu einem Listbox zuweisen zu jeder Schleife oder Liste der Service Tage säumige.