Update aber nur gewissen Wochentag

[silentwolf]

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.

Code [Auswählen] Erweitern

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

[DF6GL]

Hallo,


was willst Du mit dem Code insgesamt genau erreichen?

Auf Donnerstag prüfen:

Code [Auswählen] Erweitern

.
.
.
    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
.
.
.

[silentwolf]

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.

[silentwolf]

Hallo Franz,
tut mir leid das ich mich erst jetzt melde.
Funktioniert genau wie ich wollte vielen DANK!