Hallo zusammen,
um Arbeitstage in eine Tabbelle einzufügen, habe ich die im Forum schon beschrieben Hilfe genutzt.
Antworten #8 am: Februar 25, 2012, 10:26:30 » "Arbeitstage.zip"
In einer "neuen" DB läuft es perfekt:
Public Function fncAlleTageFuellen(intStartJahr As Integer, intEndeJahr As Integer)
Dim rs As Recordset, lngTage As Long
Set rs = CurrentDb.OpenRecordset("Tab_Arbeitstage") <== hier wird es "gelb"
Do
rs.AddNew
rs!TDatum = DateSerial(intStartJahr, 1, 1) + lngTage
rs!WT = Weekday(rs!TDatum, vbMonday)
If Year(rs!TDatum) > intEndeJahr Then Exit Do
lngTage = lngTage + 1
On Error Resume Next
rs.Update
Loop
MsgBox "Fertig"
End Function
Ich habe dann die Tabelle, das Formular und das Modul in meine DB importiert.
Nun erhalte ich den Laufzeitfehler 13 "Typen unverträglich"
Erbitte Eure Unterstützung
Gruß
Hallo,
Dim rs As DAO.Recordset, lngTage As Long
Set rs = CurrentDb.OpenRecordset("Tab_Arbeitstage",dbOpenDynaset)
und Verweis auf die DAO3.6 Library setzen..
Hallo DF6GL,
danke für die Info.
Das erste Problem ist gelöst ( roter Text und Library hinzugefügt ).
Nun wird die erste Zeile gelb:
Public Function fncAlleTageFuellen(intStartJahr As Integer, intEndeJahr As Integer) <== hier
Dim rs As Recordset, lngTage As Long
Set rs = CurrentDb.OpenRecordset("Tab_Arbeitstage")
Do
rs.AddNew
rs!TDatum = DateSerial(intStartJahr, 1, 1) + lngTage
rs!WT = Weekday(rs!TDatum, vbMonday)
If Year(rs!TDatum) > intEndeJahr Then Exit Do
lngTage = lngTage + 1
On Error Resume Next
rs.Update
Loop
MsgBox "Fertig"
End Function
Meldung : Variable nicht definiert
Bitte um weiter Unterstützung.
Gruß aus Hamburg
Hallo,
sorry , kleine Freud'sche Fehlleistung 8)
dbOpenRecordset muss dbOpenDynaset lauten..