Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/04/2012, 21:44
plitre_sys19
 
Fecha de Ingreso: septiembre-2011
Mensajes: 233
Antigüedad: 12 años, 8 meses
Puntos: 1
Aumentando Campo en el Datagrid y Recordset

Buenas Noches! Necesito Ayuda, estoy programando un formulario que contiene un datagrid conectado con un adodc con bd access pero lo que quiero es q la columna B, el primer campo me tome el valor de la Columna A (como todos los valores de esa columna son iguales) y para los demás campos de la columna B se vayan aumentando en 200, ejemplo:

A B
135,78 135,78
135,78 335,78(135,78+200) y asi sucesivamente en los otros campos
135,78
135,78

Lo he intentado hacer pero creo q esta mal el código, este es q he utilizado:
Dim total As Double
total = 0
Dim vari As Integer
vari = 200
v=!A
With adodc1.Recordset
Do While Not .EOF
total = total + (v+vari)
.MoveNext
Adodc1.Recordset!B = total
Loop
End With

espero que me puedan ayudar, lo he intentado hacer y nada, estoy trancada en esa parte