Public Function fDSTourenlesen(datum As Date) As colTouren
Set oldTour = New colTouren
strDSQ = "SELECT * FROM Touren WHERE Datum=" & Format(datum, _
  "\#yyyy\-mm\-dd\#") & "ORDER BY Tour "
Set rsdat = DB.OpenRecordset(strDSQ, dbOpenSnapshot)
With rsdat
If .EOF = True And .BOF = True Then Exit Function
.MoveFirst
Do While Not .EOF
    xDatum = .Fields(1)
    xFormmodus = "Vorhanden"
    xTagestour = .Fields(2)
    xTournummer = .Fields(3)
    xKennzeichen = .Fields(4)
    If IsNull(.Fields(5)) = False Then xRetoure = .Fields(5) Else xRetoure = ""
 
    Call fDSAuslagenlesen(datum, xTournummer)
 
oldTour.Add xDatum, xFormmodus, xTagestour, xTournummer, xKennzeichen, _
  xRetoure, xAuslagen, xFern, xNah, xTanken, xErstattet
Call fAufrufTour(oldTour)
.MoveNext
Loop
.Close
End With
Set oldTour = Nothing
Set rsdat = Nothing
 
End Function
 
Public Function fDSAuslagenlesen(datum As Date, Tournr As String)
strDSQ = "SELECT * FROM Auslagen WHERE Datum=" & Format(datum, _
  "\#yyyy\-mm\-dd\#") & " AND ([Tournummer])='" & Tournr & "'"
Dim AuslSum As Currency
AuslSum = 0
Set rsdat = DB.OpenRecordset(strDSQ, dbOpenSnapshot)
With rsdat
If .EOF = True And .BOF = True Then
    xAuslagen = 0
    xFern = False
    xNah = False
    xTanken = False
    xErstattet = False
    Exit Function
End If
 
.MoveFirst
If IsNull(.Fields(4)) = False Then xFern = True: AuslSum = AuslSum + .Fields(4)
If IsNull(.Fields(5)) = False Then xNah = True: AuslSum = AuslSum + .Fields(5)
If IsNull(.Fields(6)) = False Then xTanken = True: AuslSum = AuslSum + .Fields( _
  6)
xAuslagen = AuslSum
xErstattet = .Fields(7)
 
End With
Set rsdat = Nothing
End Function