Office: Datan von Timeline aufsplitten - Access 2007/10

Hallo zusammen,

ich habe einige tausend records - deren Daten ich regelmäßig aufsplitten muss. Das heißt - ich habe ein Event XY das Startet am 01.10.2012 - endet am 21.10.2012 - und verbraucht in diesen 20 Tagen - 100 Einheiten - sprich 5 am Tag.

So - nun möchte ich - in eine Tabelle folgendes schreiben:
Event XY - 01.10.2012 - Units: 5
Event XY - 02.10.2012 - Units: 5
Event XY - 03.10.2012 - Units: 5
Event XY - 04.10.2012 - Units: 5
Event XY - 05.10.2012 - Units: 5
etc...
Event XY - 21.10.2012 - Units: 5

Kann man soetwas in einem Query machen? Oder per VBA in eine Tabelle schreiben lassen?

Seh grad das Ziel vor lauter Bäumen nicht...

 

Inzwischen hab ich mir den Code gebaut... nur bleib ich irgendwie im zweiten loop hängen. Wenn der fertig ist - ist schluss - und springt nicht zum nächsten record vom ersten table. Was mach ich falsch?
Public Sub EventSplitter()
Dim EventDay As String
Dim db As Database
Set db = CurrentDb
Dim Rs As DAO.Recordset
Dim EventName As String, Units As String, StartDate As Date, Duration As String, UnitsPerDay As String

Set Rs = db.OpenRecordset("SELECT * FROM [Events]")
If Rs.RecordCount > 0 Then
With Rs
Rs.MoveFirst
Duration = Rs![Dauer]
Units = Rs![Einheiten]
UnitsPerDay = Duration / Units
EventName = Rs![EventName]
StartDate = Rs![Start]

Do Until Rs.EOF
EventDay = StartDate + Duration

Do Until Duration = 0
With CurrentDb().OpenRecordset("PerDay", dbOpenDynaset, dbAppendOnly)
.AddNew
!UnitsPerDay = UnitsPerDay
!EventDate = StartDate
!EventName = EventName
.Update
End With
Duration = Duration - 1
StartDate = StartDate + 1
Loop

Rs.MoveNext
Loop
End With
Else
MsgBox "No records found"
End If
End Sub

 

Habs schon rausgefunden... falsche sequence des codes :-)
Public Sub EventSplitter()
Dim EventDay As String
Dim db As Database
Set db = CurrentDb
Dim Rs As DAO.Recordset
Dim EventName As String, Units As String, StartDate As Date, Duration As String, UnitsPerDay As String

Set Rs = db.OpenRecordset("SELECT * FROM [Events]")
If Rs.RecordCount > 0 Then
With Rs
Rs.MoveFirst

Do Until Rs.EOF
Duration = Rs![Dauer]
Units = Rs![Einheiten]
UnitsPerDay = Units / Duration
EventName = Rs![EventName]
StartDate = Rs![Start]


Do Until Duration = 0
With CurrentDb().OpenRecordset("PerDay", dbOpenDynaset, dbAppendOnly)
.AddNew
!UnitsPerDay = UnitsPerDay
!EventDate = StartDate
!EventName = EventName
.Update
End With
Duration = Duration - 1
StartDate = StartDate + 1
Loop

Rs.MoveNext
Loop
End With
Else
MsgBox "No records found"
End If
End Sub