Hallo,
folgende function habe ich und die funktioniert auch aber wie muss ich denn diese ändern wenn ich beispielsweise nur jeden Donnerstag für einen bestimmten Anfang und Enddatum updaten möchte.
Function MakeDates(dtStart As Date, dtEnd As Date, lngObj As Long, lngMit As Long, sngTime As Single) As Long
Dim dt As Date
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("DATEN", dbOpenDynaset)
With rs
For dt = dtStart To dtEnd
.AddNew
!Datum = dt
!Obj_IDRef = lngObj
!Mit_IDRef = lngMit
!Zeitaufwand = sngTime
.Update
Next
End With
rs.Close
Set rs = Nothing
End Function
könnte mir da jemand helfen bitte?
Vielen Dank
Gruß Albert
Hallo,
was willst Du mit dem Code insgesamt genau erreichen?
Auf Donnerstag prüfen:
.
.
.
For dt = dtStart To dtEnd
If WeekDay(dt, vbMonday) = 4 Then
.AddNew
!Datum = dt
!Obj_IDRef = lngObj
!Mit_IDRef = lngMit
!Zeitaufwand = sngTime
.Update
End If
Next
.
.
.
Hallo,
es werden immer an einem bestimmten Wochentag arbeiten erledigt und ich möchte sagen wir jeden Donnerstag vom Anfangsdatum bis Enddatum die Stunden eintragen.
Also vom 1/2/19 bis 30/5/19 jeden Donnerstag 1,25 stunden in eine Tabelle eintragen.
Hallo Franz,
tut mir leid das ich mich erst jetzt melde.
Funktioniert genau wie ich wollte vielen DANK!