Llevo tiempo mirando y leyendo y no acabo de ver donde está el error.
Tengo un formulario donde lleno los Combobox y Textbox con una consulta SQL y la fuente es un Access. Hasta aquí bien, he conseguido que lo haga bien.
Pero le he puesto un botón para actualizar el registro Access con los datos del formulario. He probado solo actualizando un registro y funciona pero ahora que ya he puesto todos los campos a actualizar y me da un error en sintaxis en la instrucción UPDATE. Hay datos que son números en el Access y los formate a moneda en los Textbox, y por eso he utilizado unas variables por si eso daba problemas, lo mismo no hacía falta pero como fallaba he probado. Aún así persiste el error. Por mucho que lo intento no logro ver el fallo y que funcione.
Os agradezco si podéis echarme una mano. Copio el código del botón:
Private Sub CommandButton2_Click()
'boton Editar, actualizamos el registro y salimos del formulario
eImporte = TextBox4.Value: ePorcentaje = TextBox5.Value / 100: ePrevisto = TextBox6.Value: eContable = TextBox7.Value: eCurso = TextBox8.Value
id1 = UserForm3.ListBox2.List(it2, 0) 'cogemos el ID del registro del Listbox Checklist seleccionado
Conexión
Sql = "UPDATE Tb_Checklist SET OT='" & ComboBox1 & "'" & ", AGRUPACION='" & ComboBox3 & "'" & ", GRUPO='" & ComboBox4 & _
"'" & ", Periodo_Checklist='" & ComboBox2 & "'" & ", Proveedor='" & TextBox1 & "'" & ", Referencia='" & TextBox2 & "'" & _
", Usuario='" & TextBox3 & "'" & ", Importe=" & eImporte & ", Porcentaje=" & ePorcentaje & ", Previsto=" & ePrevisto & _
", Contable=" & eContable & ", En_Curso=" & eCurso & " WHERE ID =" & id1
Rst.Open Sql, Conn, 3, 3, 1
'
Conn.Close
Set Conn = Nothing
Unload Me
End Sub
Aquí veis el formulario que carga los datos. El error me salta aunque no modifique ningún dato del formulario.
Y aquí el error.
Gracias por adelantado.
Moisés.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos, de nuevo un problema.
Llevo tiempo mirando y leyendo y no acabo de ver donde está el error.
Tengo un formulario donde lleno los Combobox y Textbox con una consulta SQL y la fuente es un Access. Hasta aquí bien, he conseguido que lo haga bien.
Pero le he puesto un botón para actualizar el registro Access con los datos del formulario. He probado solo actualizando un registro y funciona pero ahora que ya he puesto todos los campos a actualizar y me da un error en sintaxis en la instrucción UPDATE. Hay datos que son números en el Access y los formate a moneda en los Textbox, y por eso he utilizado unas variables por si eso daba problemas, lo mismo no hacía falta pero como fallaba he probado. Aún así persiste el error. Por mucho que lo intento no logro ver el fallo y que funcione.
Os agradezco si podéis echarme una mano. Copio el código del botón:
Private Sub CommandButton2_Click() 'boton Editar, actualizamos el registro y salimos del formulario eImporte = TextBox4.Value: ePorcentaje = TextBox5.Value / 100: ePrevisto = TextBox6.Value: eContable = TextBox7.Value: eCurso = TextBox8.Value id1 = UserForm3.ListBox2.List(it2, 0) 'cogemos el ID del registro del Listbox Checklist seleccionado Conexión Sql = "UPDATE Tb_Checklist SET OT='" & ComboBox1 & "'" & ", AGRUPACION='" & ComboBox3 & "'" & ", GRUPO='" & ComboBox4 & _ "'" & ", Periodo_Checklist='" & ComboBox2 & "'" & ", Proveedor='" & TextBox1 & "'" & ", Referencia='" & TextBox2 & "'" & _ ", Usuario='" & TextBox3 & "'" & ", Importe=" & eImporte & ", Porcentaje=" & ePorcentaje & ", Previsto=" & ePrevisto & _ ", Contable=" & eContable & ", En_Curso=" & eCurso & " WHERE ID =" & id1 Rst.Open Sql, Conn, 3, 3, 1 ' Conn.Close Set Conn = Nothing Unload Me End Sub
Aquí veis el formulario que carga los datos. El error me salta aunque no modifique ningún dato del formulario.
Y aquí el error.
Gracias por adelantado.
Moisés.