Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Datensatz für jeden Arbeitstag in bestimmtem Zeitraum automatisch anlegen

Begonnen von dan21, Juli 16, 2010, 09:38:03

⏪ vorheriges - nächstes ⏩

dan21

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?

database

Hallo,

sollte eigentlich funktionieren...

Greets
Peter