Run time Error nach OpenRecordset in VBA

[larryfilou]

Ich bekomme in der fetten Zeile einen Runtime error wg. Type Mismatch, aber ich versteh net warum. Arbeite auf MS Access 2002

Dim Summe As Long

Dim Needed As Long


Set db = CurrentDb()

Set rs = db.OpenRecordset("Destockageresult")

rs.MoveFirst


Call Menge(Needed)


Set dbCheck = CurrentDb

[B]Set rsCheck = dbCheck.OpenRecordset("SELECT Sum(Destockageresult.Stocked) AS Summe FROM Destockageresult;")[/B]


If Summe < Needed Then

    MsgBox ("The amount requested is too big!")

End If

Danke für Eure Ideen

[larryfilou]

Hab "vergessen" die abfrage korrekt zu adressieren... :hells:

sorry