Ayuda con mi base de datos Microsoft Access
Buenas noches Angeles, requiero de tu valiosa ayuda para lo siguiente:
Tengo dos campos nombrados Fecha e Importe. Con datos del año 2000 al 2010, agrupados por años y quisiera que me mostrara la diferencia entre años en una consulta y/o informe, ejemplo
Año Importe
2000 1500
2001 2800 86.67%
2002 2050 -26.79
2003 2300 12.20 y así hasta el año 2010.
Dándote las gracias de antemano por tu atención.
Saludos Raúl
Otra petición, donde podría obtener información, For Next; Do Loop, y todo lo relacionado con bucles, en lo que soy 200% neófito.
Tengo dos campos nombrados Fecha e Importe. Con datos del año 2000 al 2010, agrupados por años y quisiera que me mostrara la diferencia entre años en una consulta y/o informe, ejemplo
Año Importe
2000 1500
2001 2800 86.67%
2002 2050 -26.79
2003 2300 12.20 y así hasta el año 2010.
Dándote las gracias de antemano por tu atención.
Saludos Raúl
Otra petición, donde podría obtener información, For Next; Do Loop, y todo lo relacionado con bucles, en lo que soy 200% neófito.
1 Respuesta
Respuesta
1
Una tabla (DiferenciaAños) con los campos Año, Importe y TC) la función sería:
Function CalcularDiferencia()
Dim db As Database
Dim rs As Recordset
Dim vImp As Double
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from DiferenciaAños order by Año")
Do While Not rs.EOF
vImp = rs!Importe
rs.MoveNext
If rs.EOF Then
Exit Do
End If
rs.Edit
rs!TC = (rs!Importe - vImp) * 100 / vImp
rs.Update
Loop
End Function
En cuanto a donde obtener información, la verdad es que no tengo un sitio fijo, busco y busco hasta que encuentro la solución.
Me cuentas.
Function CalcularDiferencia()
Dim db As Database
Dim rs As Recordset
Dim vImp As Double
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from DiferenciaAños order by Año")
Do While Not rs.EOF
vImp = rs!Importe
rs.MoveNext
If rs.EOF Then
Exit Do
End If
rs.Edit
rs!TC = (rs!Importe - vImp) * 100 / vImp
rs.Update
Loop
End Function
En cuanto a donde obtener información, la verdad es que no tengo un sitio fijo, busco y busco hasta que encuentro la solución.
Me cuentas.
Ángeles eres la salvación de un pueblo, fue excelente la respuesta que me enviaste, funciono a la perfección. Te agradezco infinitamente tu ayuda.
Saludos desde México, Raúl.
Saludos desde México, Raúl.