Laufzeitfehler 13

[SG05]

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ß

[DF6GL]

Hallo,

Dim rs As DAO.Recordset, lngTage As Long
Set rs = CurrentDb.OpenRecordset("Tab_Arbeitstage",dbOpenDynaset)          

und Verweis auf die DAO3.6 Library setzen..

[SG05]

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

[DF6GL]

Hallo,

sorry , kleine Freud'sche Fehlleistung 

dbOpenRecordset  muss   dbOpenDynaset   lauten..