Necesito Asignar valor a un campo mientras se cumple el valor de otro campo en una misma tabla.
#Registro TipoClie Serie
1 1 1
2 1 1
3 1 1
4 0 2
5 0 2
6 0 2
7 0 2
8 1 3
9 0 4
10 1 5
11 1 5
.
.
Mucho les sabre agradecer su ayuda.
1 respuesta
' Declaramos las variables
Dim db as database
Dim rs as Recordset
Dim vTipoClie as string ' supongo que el campo TipoClie es texto
Dim vSerie as integer
' Activamos la bd
Set db=Currentdb
' Creamos el recordset
Set rs=db.OpenRecordset("Select Registro, tipoclie, serie from Clientes order by Registro")
vSerie=1 ' Damos el valor a la variable vSerie
Do while not rs.eof ' mientras no sea final de fichero hazme...
vTipoclie=rs! TipoClie ' damos el valor de la variable igual al valor del campo TipoClie
Do while not rs.Eof and vTipoClie=rs!TipoClie ' mientras no sea final de fichero y el campo TipoClie tenga el mismo valor....
rs.edit
rs!Serie=vSerie
rs.Update
' editamos el recordset, damos el valor al campo serie igual al de la variable y actualizamos
rs.movenext ' vamos al siguiente registro
Loop ' cerramos el 2º bucle
vSerie=vSerie+1 ' aumentamos el valor de vSerie
rs.movenext ' vamos al siguiente registro
Loop ' cerramos el 1er bucle
Espero que funciones, si tienes dudas, me pregusntas.
Saludos, Angeles
Página supuestos y soluciones en access: http://angelessebas.es/
Hola Angeles,
Muchísimas gracias por tu ayuda.
Todo bien, el procedimiento funcionó, pero.... en cada "salto" luego de conseguir un TipoClie distinto deja un espacio en blanco, es decir, el programa funciona bien pero cuando le toca asignar un nuevo numero de Serie, entre la serie anterior y la serie nueva deja un espacio en blanco dejando asi un Tipoclie sin Serie.
Se Observa asi:
#Registro TipoClie Serie
1 0 1
2 0 1
3 1 <<<--Espacio en blanco (null) Debió asignar 2
4 1 2 <<<--Debió asignar 3
5 0 <<<--Espacio en blanco (null) Debió asiganr 4
6 1 3 <<<--Debió asignar 5
7 1 3
Muchas gracias de nuevo por tu apoyo.
Te agradezco de todo corazón me ayudes a solucionar este detalle.
Gracias!
Llevas toda la razón, nos sobra un rs. MoveNext
En vez de:
Loop ' cerramos el 2º bucle
vSerie=vSerie+1 ' aumentamos el valor de vSerie
rs.movenext ' vamos al siguiente registro
Loop ' cerramos el 1er bucle
Pones:
Loop ' cerramos el 2º bucle
vSerie=vSerie+1 ' aumentamos el valor de vSerie
Loop ' cerramos el 1er bucle
Ya que, como en el 2º bucle vamos al siguiente registro, si en el 1º se lo volvemos a decir nos saltamos un registro.
Perfecto Angeles, me lo temí... ya había hecho la prueba luego de un análisis y funcionó a la perfección.
Estoy muy agradecido por tu pronta atención y la exactitud de tu desarrollo.
Gracias!