Hola, estoy tratando de actualizar dos campos de una tabla desde un grid, pero al hacerlo me sale este error:

'El número de filas con cambios pendientes excedió el límite definido.'

Código:

Sub Guardar()
Set Rec = New ADODB.Recordset

Rec.Open "SELECT MARCA_ERROR, PORC_DEBITO FROM THOTINT WHERE TIPO_ERROR IS NOT NULL", cnbase, adOpenKeyset, adLockBatchOptimistic
Rec.MoveFirst

Do While Not Rec.EOF
Rec!MARCA_ERROR = SSgrida.Columns(4).Text
Rec!PORC_DEBITO = SSgrida.Columns(5).Text
Rec.Update
Rec.MoveNext
Loop

MsgBox "Registro guardado.", vbInformation, "Update"

End Sub

Hola miguel_1969, perdona si digo una tontería porque llevo ya 14 horas de guardia y a veces uno se tontea un poco. :smt017

Creo que MaxRows indica el número máximo de filas que se pueden procesar a la vez, si lo pones a cero no hay límite y se pueden procesar todas, si tiene otro valor solo procesará las que se indiquen. Si modificas mas filas (o las actualizas) que las que indica MaxRows dará error por sobrepasar dicho número.

Repito que si he dicho una tonteria me disculpes, pero si por casualidad he acertado dímelo.

Deseo que te sirva :smt006

__________________
Saludos
José Antonio

Hola mensazen.

Gracias, pero no es ese el problema. La verdad no se que puede ser... :smt017

Te envío un saludo

Quita el Rec.Update del bucle, estás forzando actualizaciones innecesarias, además ten en cuenta que cuando cambias un valor de un campo y te mueves a otro registro automáticamente éste se actualiza, así que sobra.

Igualmente veo que a todos les asignas el mismo valor, si es así, es más rápido usar el Update de SQL:

Sub Guardar()

Dim cad as String
cad= "UPDATE THOTINT SET MARCA_ERROR=" & SSgrida.Columns(4).Text & ", PORC_DEBITO=" & SSgrida.Columns(5).Text & _
" WHERE TIPO_ERROR IS NOT NULL"
cnbase.Execute cad
End Sub

:smt004

__________________
Angeles
-------------------------------------
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Gracias angelescj! :smt004