No se me actualiza el Recorset
Publicado por Sandra Verónica (203 intervenciones) el 28/04/2008 23:08:45
Hola a todos .... tengo este pequeño inconveniente .... el siguiente codigo no funcion del todo bien ya que encuentra el registro .... pero no me lo actualiza.
Alguien sabrá decirme porque?
Desde ya muchisimas gracias por su tiempo.
Saludos
Sandra
**************************************************
Dim TempRC As DAO.Recordset
Set TempRC = CurrentDb.OpenRecordset("RegComp", dbOpenDynaset)
TempRC.FindFirst "RgCuit = [Forms]![ModActaLP]![Cuit] AND RgNroActa = [Forms]![ModActaLP]![Texto145] AND RgAnoActa = [Forms]![ModActaLP]![Texto147]"
If Not TempRC.NoMatch Then
TempRC!RGMontoCompensa = Me.TotalMC
TempRC!RGSdoTeco = Me.TotalSap
TempRC!RGSdoProv = 0
TempRC!RGTotActa = Me.TotalMC
TempRC.Update
TempRC.Close
Set TempRC = Nothing
MsgBox "El acta se ha modificado", vbInformation, "Modificación de Actas"
Forms!ModActaLP!SubModActaLP.Form.Requery
Else
MsgBox "Registro no encontrado.", vbCritical, "Aviso"
End If
Alguien sabrá decirme porque?
Desde ya muchisimas gracias por su tiempo.
Saludos
Sandra
**************************************************
Dim TempRC As DAO.Recordset
Set TempRC = CurrentDb.OpenRecordset("RegComp", dbOpenDynaset)
TempRC.FindFirst "RgCuit = [Forms]![ModActaLP]![Cuit] AND RgNroActa = [Forms]![ModActaLP]![Texto145] AND RgAnoActa = [Forms]![ModActaLP]![Texto147]"
If Not TempRC.NoMatch Then
TempRC!RGMontoCompensa = Me.TotalMC
TempRC!RGSdoTeco = Me.TotalSap
TempRC!RGSdoProv = 0
TempRC!RGTotActa = Me.TotalMC
TempRC.Update
TempRC.Close
Set TempRC = Nothing
MsgBox "El acta se ha modificado", vbInformation, "Modificación de Actas"
Forms!ModActaLP!SubModActaLP.Form.Requery
Else
MsgBox "Registro no encontrado.", vbCritical, "Aviso"
End If
Valora esta pregunta


0