Moin,
ich habe ein Formular. Im oberen Teil wird Projekt und Mitarbeiter angegeben (Daten per Kombinationsfeld aus Datenbank), darutner wird in einem ungebundenen Textfeld das von/bis-Datum angegeben.
Jetzt möchte ich für jeden Arbeitstag zwischen dem von/bis-Datum einen Datensatz anlegen, in den die gearbeiteten Stunden eingetragen werden. Die Dtaensätze sollen sofort angezeigt werden.
Wie würdet ihr vorgehen? Über einen Button für jeden Arbeitstag einen neuen Datensatz in die Datenbank eintragen lassen und dann in einem Endlosformular anzeigen? Oder wie kann man das lösen?
Bei dem Button hatte ich an folgende Funktion gedacht:
Dim rs As dao.Recordset 'DAO3.6 Lib- Verweis setzen
Dim dtTemp As Date
Dim i As Integer
Set rs = CurrentDb.OpenRecordset("tblIstArbeit", dbOpenDynaset)
dtTemp = Me.von
While dtTemp <= Me.bis
If Weekday(dtTemp, vbMonday) <> 6 And _
Weekday(dtTemp, vbMonday) <> 7 Then
rs.AddNew
rs!Tag = dtTemp
End If
dtTemp = DateAdd("d", 1, dtTemp)
rs.Update
Wend
rs.Close
Set rs = Nothing
Oder habt ihr einen besseren Vorschlag?
Hallo,
sollte eigentlich funktionieren...
Greets
Peter