sumar al eliminar registro
Publicado por jose (3 intervenciones) el 05/12/2006 20:36:34
hola tengo el siguiente codigo:
For i = 1 To database.rsdat.RecordCount
suma = suma + database.rsdat.Fields("are").Value
database.rsdat.MoveNext
Next i
With pridatabase.rst
.Find "nron = " + txtz
If Not .EOF Then
!arean = suma
.Update
End If
End With
lo que hago es sumar el contenido de una columna para mostrar el total de la misma en
!arean, el problema que tengo es que necesito que al eliminar un registro me actualize la suma. puse el mismo codigo en el boton eliminar pero me suma a partir del registro eliminado o sea no suma los anteriores, si alguien sabe por favor...responda...gracias
For i = 1 To database.rsdat.RecordCount
suma = suma + database.rsdat.Fields("are").Value
database.rsdat.MoveNext
Next i
With pridatabase.rst
.Find "nron = " + txtz
If Not .EOF Then
!arean = suma
.Update
End If
End With
lo que hago es sumar el contenido de una columna para mostrar el total de la misma en
!arean, el problema que tengo es que necesito que al eliminar un registro me actualize la suma. puse el mismo codigo en el boton eliminar pero me suma a partir del registro eliminado o sea no suma los anteriores, si alguien sabe por favor...responda...gracias
Valora esta pregunta
0