Hallöle,
ich habe in Access folgende Datenbanken angelegt:
TAB_Berichtsheft:
Datum
Hallo
Du willst also für jeden Urlaubstag einen Eintrag in der Berichtsdatenbank? Dann kannst du das nicht einfach mit einer Abfrage lösen.
Untenstehender Code liest dir die Urlaubstabelle und erstellt für jeden Urlaubstag einen Record in die Berichtsdatenbank.
Sub Eintrag_Urlaub()
Dim dDatum As Date
Dim myDb As DAO.Database
Dim myRec As DAO.Recordset
Set myDb = CurrentDb
Set myRec = myDb.OpenRecordset(„select * from TAB_Urlaub“, dbOpenDynaset)
DoCmd.SetWarnings False
Do Until myRec.EOF
dDatum = myRec!Start_Datum
Do Until dDatum > myRec!End_Datum
DoCmd.RunSQL "INSERT INTO TAB_Berichtsheft ( Datum, Tätigkeit ) " & _
„SELECT '“ & dDatum & „’, ‚Urlaub‘“
dDatum = DateAdd(„d“, 1, dDatum)
Loop
myRec.MoveNext
Loop
DoCmd.SetWarnings True
myRec.Close
End Sub
Gruss Matthias