** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Modificar Campos  Consulta - No actualiza Recordse
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoModificar Campos Consulta - No actualiza Recordse

 Responder Responder Página  <12
Autor
Mensaje
Sherezade81 Ver desplegable
Habitual
Habitual


Unido: 14/Septiembre/2011
Localización: España
Estado: Sin conexión
Puntos: 84
Enlace directo a este mensaje Enviado: 10/Marzo/2019 a las 19:57
Muchísimas gracias Mihura, conseguido!!

     Dim NFacturaGiro As String

     Dim rst As DAO.Recordset

     Dim miSql As String

Set rst = Me.subfrmComprobacionGiros.Form.RecordsetClone

If rst.RecordCount > 0 Then

With rst

.MoveFirst

While Not .EOF

NFacturaGiro = rst("IDFACTURA")

 

miSql = "UPDATE  FACTURA SET PAGADA =TRUE,"

miSql = miSql & "GIRADA =True,"

miSql = miSql & "FACTURA.FECHA_ABONO= #" & Format(Me.txtFechaGiro, "mm/dd/yyyy") & "# ,"

miSql = miSql & "FACTURA.FECHA_REALIZACIONGIRO= #" & Format(now(), "mm/dd/yyyy") & "# "

miSql = miSql & "WHERE FACTURA.IDFACTURA=  '" & NFacturaGiro & "'"

 

 CurrentDb.Execute miSql

  .MoveNext

 

Wend

.Close

End With

End If

Set rst = Nothing

 

Me.subfrmComprobacionGiros.Requery

Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable