Visual Basic - AYUDA

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA

Publicado por JULIO ESCOBAR (98 intervenciones) el 28/03/2008 18:58:35
Una gran ayuda por favor, tengo una tabla con 100 registros con un campo en blanco (numerico) a este le quiero asignar unos numeros,el primer registro empieza con 1 sigue el 5,9,13,17 y 21 (1+4+4+4+4+4) 5 vecez suma 4, este procedimiento que detallo abajo si lo hace, pero lo que quiero es: despues de hacer esta carga de numeros empieze con el 2-6,10,14,17,21 y siga con el 3-7,11,15,19,24 y asi continue hasta terminar el archivo. Agrdezco de antemano su ayuda

""""PROCEDIMIENTO QUE REGISTRA 1-5,9,13,17,21""""

Set Db = OpenDatabase(BD)
Set RST = Db.OpenRecordset("TABLA")

dim inicio
inicio=1

'al primer registro agrega el 1
RST.MoveFirst
RST.Edit
RST.Fields!CONS = INICIO
RST.Update
RST.MoveNext

'empieza el segundo registro
Dim Contador
Contador = True: Contador = 0 ' Inicializa variables.

Do While Contador < 5
Contador = Contador + 1 ' Incrementa el contador.
RST.Edit
RST.Fields!campo = INICIO + 4
RST.Update
RST.MoveNext
INICIO = INICIO + 4

Loop
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA

Publicado por lolo (163 intervenciones) el 28/03/2008 19:32:46
Mira soy profesor de Auto-escuela y no te puedo ayudar en eso.

pero si algún dia quieres saber como actuar al llegar a una señal de stop, me lo consultas y te ayudo.

Un cordial saldo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar