Duda con recorrer registro tabla
Publicado por Calel (6 intervenciones) el 14/02/2017 20:27:16
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
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
Valora esta pregunta
0