Access - Tomar el valor anterior de una fila

Hola Neckitto espero que la este pasando bien, quiero preguntarle sobre lo de ayer, resulta que tengo casi todo calculado para realizar lo de mi informe (consulta3 y la tabla de origen de registros que alimentara el informe llamado TConsulta4), la idea es que si abres Tconsullta 4 en el boton que se llama "calcular" que se ubica en la parte inferior del formulario llamado" Inversiones" veras que en la columna llamada Inversion (Que es la ulltima)aparece 2 registros vacios, la idea es que me tome el valor anterior, es decir ahi tiene que aparecer para los dos campos vacios del ejemplo el "Economato" , pero desafortunadamente no me aparecen , he aplicado lo siguiente, apicando la logica analistica que tu me ayudaqste, pero no he conseguido resultado para solucionar dicho inconveniente:

' 22 de Julio de 2012:
vAnterior4 = .Fields(14).Value
If IsNull(rstOut.Fields(12).Value) Then
rstOut.Fields(12).Value = vAnterior4
End If

ó si deseo solo tomar los registros de la tabla Tconsulta4 :

vAnterior4 = rstOut.Fields(12).Value
If IsNull(rstOut.Fields(12).Value) Then
rstOut.Fields(12).Value = vAnterior4
End If

Siempre me aparece señalado como error la linea de codigo rstOut.Fields(12).Value, diciendome adicionalmente un mensaje de error "No hay ningun registro activo" , que hago para soluciones ese inconveniente???

Gracias,
osdata : te envio la base de datos comprimida por el correo electronico y de antemano de nuevo muchas gracias pr tu colaboracion que Dios lo bendiga.

Att. Ing, Hernán Camilo Martínez V.

Hola, Hernán:

Te indico sólo el fragmento de código que hace lo que pides. Te lo pongo aquí por si puede ayudar a alguien con un problema similar (añado un par de variables necesarias para el código pero que tú ya tienes declaradas)

...
'-------------------------------------------------------------------------
'Ya tenemos la tabla TConsulta4 rellena con los datos que queremos. Vamos a re-rellenarla
'con la información necesaria en el campo [Inversión]
Dim miSql As String
Dim vInv As String
Dim rstOut As DAO.Recordset
'Creamos una SQL con sólo el campo que necesitamos (para optimizar recursos)
miSql = "SELECT TConsulta4.Inversion FROM TConsulta4"
'Creamos el recordset sobre la SQL
Set rstOut = CurrentDb.OpenRecordset(miSql)
'Nos movemos al primer registro
With rstOut
.MoveFirst
'Cogemos el valor que haya en inversión
vInv = Nz(.Fields(0).Value, "")
'Nos movemos al siguiente registro
.MoveNext
'Empezamos el proceso de llenado
Do Until .EOF
'Si no hay valor ponemos el anterior
If IsNull(.Fields(0).Value) Then
.Edit
.Fields(0).Value = vInv
.Update
Else
'Si hay valor lo cogemos para el siguiente registro
vInv = .Fields(0).Value
End If
'Nos movemos al registro siguiente
.MoveNext
Loop
End With
'-FIN-------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
...
Saludos,

Neckkito
... http://neckkito.eu5.org ...