Regular
Beiträge: 86
Ort: Saarland | Hallo,
ich würde Dir hier raten eine neue Funktion per VBA zu schreiben.
Es ist nicht nur wegen der Performance besser sondern auch besser Testbar und wiederverwendbar (auch in Abfragen).
vielleicht so, oder so ähnlich:
Function getEndZeit(byval p_Nummer, p_Ankunft))
if p_Nummer = 1 then
getEndZeit=p_Ankunft + DSum("Stunden","tblStunden","") / 1440
else
getEndZeit = Dlookup("EndZeit","Auslastung4d","nummer = " & p_nummer)
endif
end function
viel Erfolg
Wilo
|