Office: Auslesen einer Abfrage in VBA Modul

Hallo zusammen,
ich wünsche allen ein frohes und gesundes Jahr 2024.
Ich habe eine alte Access 2003 und da habe ich zur Ermittlung von Planungsdaten folgende Funktion genutzt, jetzt mit Office 365 funktioniert diese in der aktuelle Access Version leider nicht mehr. Kann mir jemand sagen, was ich ändern muss?

Static Function Ende(aplnr, Start, Belegung, Reihenfolge)
'Variablendeklaration
Dim k As Double 'Variable für die Kapazität
Dim Kap As Double 'Variable für Kapazität aus der Abfrage
Dim MeineDB As Recordset
Dim MeineDB1 As Recordset
Dim AktuelleDB As Database
Dim i As Integer
Dim j As Integer
Dim Anzahl As Integer
Dim strKriterien As Variant
Dim S As Variant
Dim SDB As Variant
Dim B As Double 'Belegung in Stunden
Dim RestKap As Double

Set AktuelleDB = CurrentDb
'If Reihenfolge = 1 Then
If BOF = True Then
B = 0
RestKap = 0
End If

Debug.Print "b am Anfang R = 1", B
Debug.Print "RestKap am Anfang R = 1", RestKap
Select Case aplnr
Set AktuelleDB = CurrentDb
Set MeineDB = AktuelleDB.OpenRecordset("Abfrage Kapazität M 852", dbOpenDynaset)
'Set MeineDB1 = AktuelleDB.OpenRecordset("Abfrage Kapazität M 801 DS", dbOpenDynaset)

MeineDB.MoveLast
Anzahl = MeineDB.RecordCount
Debug.Print "anzahl", Anzahl
MeineDB.MoveFirst
B = Belegung / 60
Debug.Print "b"; B
For i = 1 To Anzahl
SDB = Format(MeineDB!Tagesdatum, "dd.mm.yyyy")
Debug.Print "SDB", SDB
If Start = SDB Then
If BOF = True Then 'Reihenfolge = 1 Then
Kap = MeineDB!Kapazität
'RestKap = Kap - b
Debug.Print "Kap", Kap
Debug.Print "RestKAp vor Zuordnung:", RestKap
Exit For
Else
Debug.Print "Kap bei R>1", Kap
Debug.Print "RestKAp bei R>1:", RestKap
Exit For
End If
Else
MeineDB.MoveNext
End If
Next i
If BOF = True Then 'Reihenfolge = 1 Then
RestKap = Kap - B
Else
RestKap = RestKap - B
End If
Debug.Print "RestKap", RestKap
For j = i To Anzahl
If RestKap > 0 Then
Ende = SDB
'RestKap = Kap - b
Debug.Print "RestKap1", RestKap
Debug.Print "ende", Ende
Exit For
Else
MeineDB.MoveNext
RestKap = RestKap + MeineDB!Kapazität
Debug.Print "Kap1", Kap
Debug.Print "RestKap2", RestKap
SDB = MeineDB!Tagesdatum
End If
Next j
End Function


Nun kommt es schon hier
Anzahl = MeineDB.RecordCount
zu einer Fehlermeldung "Fehler beim Komplieren: Typen unverträglich

und auch an dieser Stelle

Set AktuelleDB = CurrentDb
Set MeineDB = AktuelleDB.OpenRecordset("Abfrage Kapazität M 852", dbOpenDynaset)
kommt der Fehler "Typ unverträglich

Gibt es da andere Befehle?

Danke
Matthias

 

Hallo Matthias,
hier steht, dass Record.count den Datentyp Long Integer ausgibt. Sollte das nicht funktionieren, setze Anzahl doch mal auf Variant.
Bei dem zweiten Problemfall guck Dir mal die Zeile vorher an. Mein Access2016 meckert, weil Du zwar mit Select Case die Select-Abfrage öffnest, sie aber nirgendwo mehr schließt.
Gruß
Doming
Bitte setze Deine Listings in Code-Tags, damit man sich in dem Code besser zurechtfindet.

Code:

Static Function Ende(aplnr, Start, Belegung, Reihenfolge)
'Variablendeklaration
 Dim k As Double 'Variable für die Kapazität
 Dim Kap As Double 'Variable für Kapazität aus der Abfrage
 Dim MeineDB As Recordset
 Dim MeineDB1 As Recordset
 Dim AktuelleDB As Database
 Dim i As Integer
 Dim j As Integer
 Dim Anzahl As Integer
 Dim strKriterien As Variant
 Dim S As Variant
 Dim SDB As Variant
 Dim B As Double 'Belegung in Stunden
 Dim RestKap As Double

    Set AktuelleDB = CurrentDb
    'If Reihenfolge = 1 Then
    If BOF = True Then
        B = 0
        RestKap = 0
    End If
   
    Debug.Print "b am Anfang R = 1", B
    Debug.Print "RestKap am Anfang R = 1", RestKap
    Select Case aplnr
'---------- vergessen?
    End Select
'----------
    Set AktuelleDB = CurrentDb
    Set MeineDB = AktuelleDB.OpenRecordset("Abfrage Kapazität M 852", dbOpenDynaset)
    'Set MeineDB1 = AktuelleDB.OpenRecordset("Abfrage Kapazität M 801 DS", dbOpenDynaset)
   
    MeineDB.MoveLast
    Anzahl = MeineDB.RecordCount
    Debug.Print "anzahl", Anzahl
    MeineDB.MoveFirst
    B = Belegung / 60
    Debug.Print "b"; B
    For i = 1 To Anzahl
        SDB = Format(MeineDB!Tagesdatum, "dd.mm.yyyy")
        Debug.Print "SDB", SDB
        If Start = SDB Then
            If BOF = True Then 'Reihenfolge = 1 Then
                Kap = MeineDB!Kapazität
                'RestKap = Kap - b
                Debug.Print "Kap", Kap
                Debug.Print "RestKAp vor Zuordnung:", RestKap
                Exit For
            Else
                Debug.Print "Kap bei R>1", Kap
                Debug.Print "RestKAp bei R>1:", RestKap
                Exit For
            End If
        Else
            MeineDB.MoveNext
        End If
    Next i
    If BOF = True Then 'Reihenfolge = 1 Then
        RestKap = Kap - B
    Else
        RestKap = RestKap - B
    End If
    Debug.Print "RestKap", RestKap
    For j = i To Anzahl
        If RestKap > 0 Then
            Ende = SDB
            'RestKap = Kap - b
            Debug.Print "RestKap1", RestKap
            Debug.Print "ende", Ende
            Exit For
        Else
            MeineDB.MoveNext
            RestKap = RestKap + MeineDB!Kapazität
            Debug.Print "Kap1", Kap
            Debug.Print "RestKap2", RestKap
            SDB = MeineDB!Tagesdatum
        End If
    Next j
End Function

 

Hallo Doming,
danke für den Hinweis, das end select hatte ich nur vergessen zu kopieren.
Beim Count mit den Variant funktioniert, nun meckert Access nicht

Es bleibt das Problem mit dieser Zeile
Set MeineDB = AktuelleDB.OpenRecordset("Abfrage Kapazität M 852", dbOpenDynaset)
da kommt auch der Hinweis "Typen unverträglich"
Ich glaube das hat auch etwas mit den Verweisen zutun, in der alten Access Version hatte ich DAO350.dll, das gibt es aber jetzt nicht mehr.
Ich hatte ja die Anfrage Datensatz für Datensatz ausgelesen um daraus dann Kapazitäten und Startdatum zu ermitteln.
Kann man Abfragen anderes auslesen?

danke und ein schönes Wochenende
Matthias

 

Hallo,
die Funktion an sich kann ich natürlich nicht probieren.
Ich habe Deinen Code nur in eine Testdatenbank kopiert und durch den Debugger geschickt.
Nach dem End Select meckert bei mir nichts mehr.
Folgende Verweise sind bei mir aktiviert

Kannst ja mal gucken, ob Dir das hilft.

 

Hallo Doming,
super, es scheint jetzt auch bei mir zu funktionieren, es war anscheinend die Reihenfolge der Verweise, habe deine Reihenfolge eingestellt und es funktioniert
Das war somit ein klasse Hinweis
Danke
Matthias