Forums Neueste Beiträge
 

VBA Function in Access 2007 liefert einen Laufzeitfehler 424

17/11/2009 - 15:17 von Andi | Report spam
Hallo, ich habe eine Function die mir einen Fehler 'Laufzeitfehler
424: Objekt erforderlich' liefert und weiss nicht warum!!

Hier der Code:
Function getGefKm(lngTID As Long, lngStartKm As Long, lngGesKm As
Long) As Long

Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).Databases(0)

Dim rcs As DAO.Recordset

Set rcs = CurrentDb.OpenRecordset("SELECT Max(GESKM)as gefkm from
Tankdaten where tdatum <(Select tdatum from tankdaten as a where a.TID
= " & lngTID & " And a.FZGID = tankdaten.FZGID)", dbOpenDynaset)


!! Hier bleibt der Debugger stehen!! Ich weiss, dass beim 1. Mal ein
"NULL" gefunden wird!! Sehe ich im Lokalen Fenster!!

If rcs.Fields("gefkm").Value Is Null Then
getGefKm = lngGesKm - lngStartKm
Exit Function
Else
getGefKm = lngGesKm - rcs.Fields("gefkm").Value
End If

rcs.Close
Set rcs = Nothing

End Function

Bitte wer weiss Rat!! Nicht an der Logik feilen, die steht. Hier wird
eine Oracle Db-Anwendung komplett in Access migriert!

Danke
mfg
Andreas
 

Lesen sie die antworten

#1 Jörg Ackermann
17/11/2009 - 15:27 | Warnen spam
Hallo Andi

Andi meinte:


Hallo, ich habe eine Function die mir einen Fehler 'Laufzeitfehler
424: Objekt erforderlich' liefert und weiss nicht warum!!

Hier der Code:
...
If rcs.Fields("gefkm").Value Is Null Then
...



If IsNull(rcs.Fields("gefkm").Value) Then

Gruß

Ähnliche fragen