Actualizar Datos vb6
Hola de nuevo. Tengo un problema, ya que cuando tengo que actualizar un dato en access lo que me hace es crear uno nuevo con diferentes valores, y lo que quiero es que los antiguos datos los actualice por los nuevos.
Respuesta de Isaac Reyes
1
¿Qué instrucción estás utilizando para actualizar los datos o cómo los actualizas?
With Rec2
If addFlag Then .AddNew
Rec2!LEGALIZACION = lblLegalizacionNo.Caption
Rec2!USUARIO = lblNombre.Caption
Rec2!ANTICIPODIRIGIDO = lblDirigdoA.Caption
Rec2!VALORANTICIPO = lblValorAnticipo2.Caption
Rec2!OBRA = lblObra2.Caption
Rec2!VALORLEGALIZACION = txtValorLegalizacion.Text
Rec2!TOTAL = lblTotal2.Caption * 1
.Update
End With
addFlag = False
If addFlag Then .AddNew
Rec2!LEGALIZACION = lblLegalizacionNo.Caption
Rec2!USUARIO = lblNombre.Caption
Rec2!ANTICIPODIRIGIDO = lblDirigdoA.Caption
Rec2!VALORANTICIPO = lblValorAnticipo2.Caption
Rec2!OBRA = lblObra2.Caption
Rec2!VALORLEGALIZACION = txtValorLegalizacion.Text
Rec2!TOTAL = lblTotal2.Caption * 1
.Update
End With
addFlag = False
1.- Asegúrate de que el Flag (addFlag) no esté en verdadero cuando quieres actualizar, ya que si se ejecuta AddNew, estarás agregando un nuevo registro.
2.- Asegúrate de haber seleccionado previamente el registro que quieres modificar.
Si LEGALIZACIÓN es tu identificador, deberías seleccionar de forma previa el registro
Rec2.Filter="LEGALIZACION='" & lblLegalizacionNo.Caption & "'"
y luego aplicar las modificaciones. Podría quedar de la sigueinte forma
With Rec2
If addFlag Then
.AddNew
Rec2!LEGALIZACION = lblLegalizacionNo.Caption
Else
.Filter="LEGALIZACION='" & lblLegalizacionNo.Caption & "'"
End If
Rec2!USUARIO = lblNombre.Caption
Rec2!ANTICIPODIRIGIDO = lblDirigdoA.Caption
Rec2!VALORANTICIPO = lblValorAnticipo2.Caption
Rec2!OBRA = lblObra2.Caption
Rec2!VALORLEGALIZACION = txtValorLegalizacion.Text
Rec2!TOTAL = lblTotal2.Caption * 1
.Update
End With
addFlag = False
2.- Asegúrate de haber seleccionado previamente el registro que quieres modificar.
Si LEGALIZACIÓN es tu identificador, deberías seleccionar de forma previa el registro
Rec2.Filter="LEGALIZACION='" & lblLegalizacionNo.Caption & "'"
y luego aplicar las modificaciones. Podría quedar de la sigueinte forma
With Rec2
If addFlag Then
.AddNew
Rec2!LEGALIZACION = lblLegalizacionNo.Caption
Else
.Filter="LEGALIZACION='" & lblLegalizacionNo.Caption & "'"
End If
Rec2!USUARIO = lblNombre.Caption
Rec2!ANTICIPODIRIGIDO = lblDirigdoA.Caption
Rec2!VALORANTICIPO = lblValorAnticipo2.Caption
Rec2!OBRA = lblObra2.Caption
Rec2!VALORLEGALIZACION = txtValorLegalizacion.Text
Rec2!TOTAL = lblTotal2.Caption * 1
.Update
End With
addFlag = False
