Visual Basic para Aplicaciones - suma de registros

Hola amigos foristas tengo el siguiente problema:

n° nombre suma
1 juan 1
1 kety 2
1 jose 3
1 Jesy ? ---> Esta suma debe de ser el valor de la SUMA del registro anterior
osea 3 + el incremento que es "1" teniendo = 4 (SUMA DE JESSY)

Gracias por la ayuda o sugerencias.

Lo que no se es dónde lo estás haciendo, si en Excel, en VBA o donde.

Si lo haces en Excel, y asumiendo que el título está en la fila 1, y Nº en Columna A, nombre en columna B y Suma en Columna C, podría ser : C4+1, donde C4 tiene el valor 3 y le sumas 1 dando 4.

Si lo quieres hacer en VBA, te sugiero le asignes una variable byte o Integer, dependiendo de hasta que valor necesitas obtener como resultado y le agregas 1 al pasar por los registros.

Si nos completas la idea, creo que te podremos ayudar más.

Hola amigo gracias por tu ayuda, el entorno de desarrollo es :

Visual basic 6.0 y Acces Xp, por favor si podrias mandarme un ejemplo código.}

Gracias.

Mira, en lo personal hago los códigos VBA en el editor de Excel, conectándome a bases de datos Access usando conexion DAO. ¿Tu desarrollas en Access?.

En mi caso comencé trabajando con Office '97 y me quedé con el tipo de conexion DAO. Actualmente más se usa ADO, pero desconozco esa parte aun. Espero que con lo que conozco te pueda ayudar, la idea general es la misma.

Si lo que buiscas es que la numeración sea consecutiva al registro anterior puedes usar un Do While o un For.
el Do While te funciona siempre y cuando cumpla una condición, en cambio el For trabaja con parámetros definidos.

Ej, Dim Correlativo as Integer
Correlativo = 1
' El loop que ves actuará siempre y cuando cumpla la consición por la que te
conectas a la Base de datos. ( Ejm. Fecha = #15/09/2006# )
Do While not rs.bof and not rs.eof
' Aqui pones lo que desees hacer
rs.New o rs.Edit ( lo que te corresponda usar )
rs("Nro")=correlativo
Correlativo = Correlativo + 1
rs.Update
Loop

Dim Correlativo As Integer
For x = 1 to 50
rs.New o rs.Edit ( lo que corresponda usar )
rs("Nro") = x
rs.Update
Next x

Luis Castillo [email protected]
Fecha: 22/09/2006 18:17:32
Asunto: RE:suma de registros
Mira, en lo personal hago los códigos VBA en el editor de Excel, conectándome a bases de datos Access usando conexion DAO. ¿Tu desarrollas en Access?.

En mi caso comencé trabajando con Office '97 y me quedé con el tipo de conexion DAO. Actualmente más se usa ADO, pero desconozco esa parte aun. Espero que con lo que conozco te pueda ayudar, la idea general es la misma.

Si lo que buiscas es que la numeración sea consecutiva al registro anterior puedes usar un Do While o un For.
el Do While te funciona siempre y cuando cumpla una condición, en cambio el For trabaja con parámetros definidos.

Ej, Dim Correlativo as Integer
Correlativo = 1
' El loop que ves actuará siempre y cuando cumpla la consición por la que te
conectas a la Base de datos. ( Ejm. Fecha = #15/09/2006# )
Do While not rs.bof and not rs.eof
' Aqui pones lo que desees hacer
rs.New o rs.Edit ( lo que te corresponda usar )
rs("Nro")=correlativo
Correlativo = Correlativo + 1
rs.Update
Loop

Dim Correlativo As Integer
For x = 1 to 50
rs.New o rs.Edit ( lo que corresponda usar )
rs("Nro") = x
rs.Update
Next x