Duda con recorrer registro tabla

[calel_leon]

Hola,

Realice una funcion en acces para que tome cada registro de la tabla Flujo_Pas y se le reste la fecha ingresada por parametros, pero la funcion me entrega solo un valor.

Y no entiendo el por que de ello.

La tabla tiene 31 registros que complen con la consulta sql, y deceo me entregue las 31 diferencias entre las fechas.

Ejemplo:
1.- 185
2.- 254
3.- 367
.
.
.
31.- 2018

Código SQL:

FUNCTION Plazo_Acumulado(Operacion AS INTEGER, Fecha_Hoy AS DATE) AS DOUBLE
Dim rs AS Recordset
Dim res AS DOUBLE
 
 SET rs = CurrentDb.OpenRecordset("select Fecha_Fin from Flujo_Pas where Flujo_Id=" & Operacion)
 
    While NOT rs.EOF
        res = DateDiff("d", Fecha_Hoy, Fecha_Fin)
            IF res > 0 THEN
               Plazo_Acumulado = res
            ELSE
               Plazo_Acumulado = 0
            END IF
    
    rs.MoveNext
   
    Wend
 
END FUNCTION