Daniel
31 de Octubre del 2003

Tengo mi tabla llamada Arriendos con 8 campos y uno de ellos es EstadoClientes......nesesito cambiar el estado Deudor a OK! y NO me ha resultado este es el codigo:

Private Sub cmdActualizar_Click()
conecActualizaEstadoCli
rsActualizaEstado.AddNew
If MsgBox("¿Realmente desea actualizar este registro?", vbQuestion + vbYesNo) = vbYes Then
rsActualizaEstado!EstadoCliente = "OK!"
On Error GoTo corrige:
rsActualizaEstado.Update

Else
rsActualizaEstado.CancelUpdate

End If
Exit Sub
corrige:
MsgBox ("Actualizacion satisfactria"), vbExclamation
txtCodigoPel.Text = " "
cmdActualizar.Visible = False
lblNomP.Visible = False
lblNombrePel.Visible = False
End Sub

la coneccion la tengo en un modulo que se conecta con "conecActualizaEstadoCli" si alguien me puede hechar una ayudita estare muy agradecido....
PD:el controlador de error lo estaba probando funciona pero no efectua el cambio que nesecito

RAFA
31 de Octubre del 2003

Hola Daniel.
No uses el addnew, eso es solamente para añadir un registro nuevo, no para modificar.
simplemente modifica el campo y luego update.
O bien
conexion.execute "update tabla set campo=' " & valor & " ' where condicion"
Suerte
Rafa