Vencimientos
Hola, Sofocles! Te quiero hacer una consulta: tengo una base de datos de deudas refinanciadas en cuotas. Quisiera poder hacer algún código como para que me indique cuantas cuotas tiene vencida cada refinanciación. ¿Alguna idea de como puedo empezar? (Me tildé y no se me ocurre como empezar a plantearlo)
Muchas Gracias,
Buffy
Muchas Gracias,
Buffy
1 Respuesta
Respuesta de sofocles
1
Debes crear una función en la que envíes un identificador que localice las cuotas de la refinanciación.
Algo asi: Public Function Calcular_Cuotas_Vencidas(IdFinanciaciaon)
La función debe abrir la tabla de la refinanciación, setear el conjunto de registros y abrir un contador.
Dim DB as database
set DB = CurrentDB()
Dim sql as string
sql="SELECT * FROM [Refinanciación]"
sql=sql & " WHERE [Refinanciación].[IdRefinanciación]=" & IdRefinanciación
Dim T_Rec as recordset
Set T_REC = DB.OpenRecordset(sql,dbopensnapshot)
Una vez seteado el recordset, debes abrir un numerador:
Dim i as integer
i=0
A continuación debes recorrer todos los registros para contar las cuotas vencidas.
Dim FechaActual
FechaActual=Date()
DO WHILE NOT T_REC.EOF
IF T_REC!FechaVencimiento<=FechaActual Then
i=i+1
End if
T_REC.MOVENEX
LOOP
Y por último devolver el número de cuotas vencidas:
Calcular_Cuotas_Vencidas=i
Con este ejemplo puedes contar las cuotas vencidas.
La función puede ser llamada desde un botón en un formulario, incluyendo la llamada a la función en el evento al hacer clic.
Algo asi: Public Function Calcular_Cuotas_Vencidas(IdFinanciaciaon)
La función debe abrir la tabla de la refinanciación, setear el conjunto de registros y abrir un contador.
Dim DB as database
set DB = CurrentDB()
Dim sql as string
sql="SELECT * FROM [Refinanciación]"
sql=sql & " WHERE [Refinanciación].[IdRefinanciación]=" & IdRefinanciación
Dim T_Rec as recordset
Set T_REC = DB.OpenRecordset(sql,dbopensnapshot)
Una vez seteado el recordset, debes abrir un numerador:
Dim i as integer
i=0
A continuación debes recorrer todos los registros para contar las cuotas vencidas.
Dim FechaActual
FechaActual=Date()
DO WHILE NOT T_REC.EOF
IF T_REC!FechaVencimiento<=FechaActual Then
i=i+1
End if
T_REC.MOVENEX
LOOP
Y por último devolver el número de cuotas vencidas:
Calcular_Cuotas_Vencidas=i
Con este ejemplo puedes contar las cuotas vencidas.
La función puede ser llamada desde un botón en un formulario, incluyendo la llamada a la función en el evento al hacer clic.
