Problemas con consulta actualización datos
He creado un código para actualizar datos en una tabla, a través de un consulta de actualización. La cuestión es que actualice el campo Factura_Serie con el valor de la variable MiSerieFactura, que toma de un formulario. Los valores que puede tomar este campo son: 00, 01, por lo que lo he definido como Texto con tamaño 2.
El código es el siguiente:
Dim MiSerieFactura As String
MiFecha = Me![Fecha_Factura]
MiAño = Me![Año_Factura]
MiSerieFactura = Me![SerieFactura]
N_Factura = Me![N_Factura]
Cliente = Me![Cliente_Id]
Var_BaseImponible = Me![Total_BaseImponible]
Var_IVA = Me![%_IVA]
Var_CuotaIVA = Nz(Me![Total_IVA])
Var_Recargo = Me![%_Recargo]
Var_CuotaRecargo = Nz(Me![Total_Recargo])
Var_TotalFactura = Me![Total_Factura]
CurrentDb.Execute "UPDATE Albaranes_Ventas SET Factura_Numero=" & N_Factura & ",Factura_Serie=" & MiSerieFactura & ",Factura_Año=" & MiAño & " WHERE Factura_Numero Is Null AND Facturado=-1"
El problema es que el valor que inserta en la tabla es 0 o 1 (en vez de 00 o 01).
He ejecutado el código paso a paso y la variable si que toma bien el valor, el problema es que la consulta actualiza mal el valor.
¿Alguna sugerencia.
1 Respuesta
Eso te ocurre porque tratas el valor, en la SQL, como si fuera numérico y no de texto.
Prueba así:
CurrentDb.Execute "UPDATE Albaranes_Ventas SET Factura_Numero=" & N_Factura & ",Factura_Serie='" & MiSerieFactura & "',Factura_Año=" & MiAño & " WHERE Factura_Numero Is Null AND Facturado=-1"
La diferencia está en que esta parte (Factura_Serie='" & MiSerieFactura & "') lleva comillas simples para rodear al valor de MISerieFactura en la SQL.
Prueba y me cuentas.
Un saludo
¡Gracias!
Si no necesitas ninguna aclaración adicional y el tema está resuelto.
¡Gracias! Tema resuelto
Si no lo has hecho ya y la web sigue con funcionamientos extraños, como antes que me cortó el mensaje...)
