Tabelle mit Terminen zwischen 2 Daten auffüllen

[HaNe]

Hallo,
ich habe 2 Daten ( z.B. 1.3.2020 und 12.03.2020) gegeben und soll eine Tabelle mit allen dazwischen liegenden Arbeitstagen auffüllen, sowie nie Anzahl der Arbeitstage/Monat ermitteln. Im Excel ist das ja kein Problem. Leider klemmt hier mal wieder die Säge.
Kann mir hier bitte jemand einen Tipp geben? Nutze Access 2007.

Vielen Dank

Gruß
Hagen

[MzKlMu]

Hallo,
Kalendertabelle anlegen die alle Tage eines ausreichend großen Zeitraums umfasst.
Feiertage werden in der Kalendertabelle angehakt, die Wochenenden lassen sich automatisch ermitteln.

[HaNe]

Hallo Klaus,
vielen Dank für die Info. Wenn ich dich richtig verstehe, muss man jeden einzelnen Tag in einer Tabelle anlegen? Geht das nicht über VBA oder so?

Gruß
Hagen

[DF6GL]

Hallo,

die Forensuche ergäbe Beispiele...


https://www.access-o-mania.de/forum/index.php?topic=24308.msg142886#msg142886
.
.
.
.

[HaNe]

Hallo,

genau das habe ich gesucht. Vielen Dank. Da hab ich wohl nicht nach der richtigen Fomulierung gesucht.

Vielen Dank nochmal

Gruß
Hagen

[HaNe]

Hallo,

Hallo,

die Forensuche ergäbe Beispiele...

https://www.access-o-mania.de/forum/index.php?topic=24308.msg142886#msg142886

Ich habe hier im Formular 2 Felder mit Start (BDat) und Enddatum (EDat), welche als Datum formatiert sind. Wir kann ich diese beiden Felder als Start bzw. Enddatum benutzen?
Aktuell habe ich das folgendermaßen generiert, aber das funktioniert leider nicht. Hat sicher was mit dem Datumsformat zu tun:

Dim rs As Recordset, dteCurrDate As Date
Set rs = CurrentDb.OpenRecordset("tblTest")
    'For dteCurrDate = #1/1/2020# To #1/31/2020#
    For dteCurrDate = Me.BDat To Me.EDat
        rs!Test_Bezeichnung = dteCurrDate
        rs.Update
    Next dteCurrDate

Gruß Hagen

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

For dteCurrDate = Format(nz(Me!BDat,#01/01/2000#),"\#dd-mm-yyyy\#") To Format(nz(Me!EDat,#12/31/2050#),"\#dd-mm-yyyy\#")

[HaNe]

Hallo,

Hallo,

Code [Auswählen] Erweitern

For dteCurrDate = Format(nz(Me!BDat,#01/01/2000#),"\#dd-mm-yyyy\#") To Format(nz(Me!EDat,#12/31/2050#),"\#dd-mm-yyyy\#")

Da kommt bei mir eine Fehlermeldung:
Laufzeitfehler '13':
Typen unverträglich
Hängt das mit der 2007er Version zusammen?

Gruß
Hagen

[DF6GL]

Hallo,

nein,

vermutlich hat das Tabellenfeld "Test_Bezeichnung" (besser "Test_Datum") nicht den Datentyp "Datum/Uhrzeit" und es sollte zudem so lauten:

Code [Auswählen] Erweitern

rs!Test_Datum = Format(dteCurrDate,"\#dd-mm-yyyy\#")

[HaNe]

Hallo,

Code [Auswählen] Erweitern

rs!Test_Datum = Format(dteCurrDate,"\#ddd-mm-yyyy\#")

Habe den Feldnamen wie gewünscht angepasst, aber die Fehlermeldung bleibt gleich.
Habe mal die TestDB angehängt.
Im Formular FrmUrlKrkKurz sollen über Daten anhängen (vorerst) in die Tabelle TblTest die Datensätze von Beginn bis Ende angehängt werden. Es kann nur ein Formatierungsproblem sein, denn die "originiale" Version funktioniert wunderbar.

Gruß
Hagen

[DF6GL]

Hallo,

schreib mal so:

Code [Auswählen] Erweitern

Private Sub DatenAnhängen_Click()

Dim rs As Recordset, dteCurrDate As Date
Set rs = CurrentDb.OpenRecordset("tblTest")

    For dteCurrDate = Nz(Me!BDat, #1/1/2000#) To Nz(Me!EDat, "\#dd-mm-yyyy\#")
        rs.AddNew
        rs!Test_Datum = dteCurrDate
        rs.Update
    Next dteCurrDate

End Sub

[HaNe]

Hallo,

Supi, jetzt klappt es wunderbar.

VIELEN VIELEN DANK

Gruß und ein schönes ( langes ) Wochenende
Hagen