| Usuario |
La operacion en varios pasos gener... |
Tito
3 Mensaje(s)
|
| Enviado - 24/9/2004 |
| |
Do While (rsOperaciones("NumeroSO") > cSecuModi) And (Not rsOperaciones.EOF)
rsOperaciones.MovePrevious
cSec = Format(Val(rsOperaciones("NumeSecuOper") + 1), "00")
cOper = rsOperaciones("TCodOperacion")
cDesc = rsOperaciones("DescOperacion")
cTiem = rsOperaciones("TTpoOrden")
cBloqueSgte = rsOperaciones("CodBloS")
cOperacionSgte = rsOperaciones("CodOpS")
rsOperaciones.MoveNext
rsOperaciones("NumeSecuOper") = cSec
rsOperaciones("TCodOperacion") = cOper
'''''''''AQUI sale el error: cuando el valor de cDesc entra al recordset
rsOperaciones("DescOperacion") = cDesc
rsOperaciones("TTpoOrden") = cTiem
rsOperaciones("CodBloqueS") = cBloqueSgte
rsOperaciones("CodOperS") = cOperacionSgte
rsOperaciones.MovePrevious
Loop
|
| |
|
Tito
3 Mensaje(s)
|
|
nostromo
390 Mensaje(s)
|
| Enviado - 24/9/2004 |
| |
Hola;
Emplea consulta SQL sin data control.
El código resultante es mas facil de mantener.
Nos vemos |
| |
|
severian
7 Mensaje(s)
|
| Enviado - 26/9/2004 |
| |
Yo creo que el error es uno de estos
que "DescOperacion" requiere un valor unico y estas grabando algo duplicado (es decir, ya hay otro registro con ese valor)
que cDesc es de tipo distinto que " DescOperacion"
o algo por el estilo, es decir, que el valor que intentas actualizar no coincide con las restricciones del campo.
Igual por ahi podrias checar los errores de la conexion o poner un "on error goto ..." y ver el estado de err.descripcion para tener mas info.
.Severian |
| |
|
