Buenos días / Buenas tardes, estimados
Tengo una duda que no me deja avanzar
Tengo un formulario en el cual después de hacer de un procedimiento de sumas(el cual me sale) deseo actualizar columnas o celdas de filas que cumplen los criterios, Ejemplo para explicarme mejor:
Tengo la sgte BD: con campos producción de mes, en diferentes periodos, sin embargo, se relacionan por el tipo de empresa (Propia o Subcontrata)
Mediante formula con un botón deseo, que se actualicen los que tienen el mismo Tipo de empresa con sus producciones de mes que tienen en sus respectivas celdas.
Ejemplo: el que tiene 11,426.01 en monto de carta debe decir lo mismo, el de 3,223.33 en monto de carta deberá decir el mismo monto y así sucesivamente.
Por el momento he hecho lo sgte, el cual es lo que me llama el botón de actualizar, pero no logro actualizar.... y lo posible es que he puesto Set ProduccionMes = MontoCarta
Private Sub ActualizaRegistroREPETIDO()
Dim SQL As String
On Error GoTo ManipulaError
'Actualizo la BD
CurrentDb.Execute "UPDATE [1 - ProduccionMes] set NroCarta='" & Me.txtNroCarta & "', MontoCarta = ProduccionMes, Facturacion='" & Me.txtFacturacion & "' " _
& "WHERE TD='" & Me.txtTD & "' AND TipoEmpresa='" & Me.txtTipoEmpresa & "' ;", dbFailOnError
MsgBox "Se actualizó registro anterior en: - Produccion Mes -", vbOKOnly, "Informaciòn"
CurrentDb.Execute SQL, dbFailOnError
Exit Sub
ManipulaError:
MsgBox Err.Description, vbCritical, "Aviso"
End Sub
- El mensaje que me sale es: No coincide los tipos de datos en la expresión de criterios
Espero su ayuda! Muchas gracias!!
Editado por DiegoApe - 16/Junio/2021 a las 18:53
Tweet
Actualizar tabla con valores de celdas
Opciones del Tema
