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
Hallo,
Kalendertabelle anlegen die alle Tage eines ausreichend großen Zeitraums umfasst.
Feiertage werden in der Kalendertabelle angehakt, die Wochenenden lassen sich automatisch ermitteln.
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
Hallo,
die Forensuche ergäbe Beispiele...
https://www.access-o-mania.de/forum/index.php?topic=24308.msg142886#msg142886
.
.
.
.
Hallo,
genau das habe ich gesucht. Vielen Dank. Da hab ich wohl nicht nach der richtigen Fomulierung gesucht.
Vielen Dank nochmal
Gruß
Hagen
Hallo,
Zitat von: DF6GL am April 30, 2020, 12:23:51
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
Hallo,
For dteCurrDate = Format(nz(Me!BDat,#01/01/2000#),"\#dd-mm-yyyy\#") To Format(nz(Me!EDat,#12/31/2050#),"\#dd-mm-yyyy\#")
Hallo,
Zitat von: DF6GL am April 30, 2020, 14:41:19
Hallo,
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
Hallo,
nein,
vermutlich hat das Tabellenfeld "Test_Bezeichnung" (besser "Test_Datum") nicht den Datentyp "Datum/Uhrzeit" und es sollte zudem so lauten:
rs!Test_Datum = Format(dteCurrDate,"\#dd-mm-yyyy\#")
Hallo,
Zitat von: DF6GL am April 30, 2020, 15:02:33
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
Hallo,
schreib mal so:
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
Hallo,
Supi, jetzt klappt es wunderbar.
VIELEN VIELEN DANK
Gruß und ein schönes ( langes ) Wochenende
Hagen