Actualizar tabla con valores de celdas
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86062
Fecha de impresión: 26/Marzo/2026 a las 15:54
Tema: Actualizar tabla con valores de celdas
Publicado por: DiegoApe
Asunto: Actualizar tabla con valores de celdas
Fecha de publicación: 16/Junio/2021 a las 18:51
|
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
Espero su ayuda! Muchas gracias!!
------------- Saludos, Diego Aguilar |
Respuestas:
Publicado por: mounir
Fecha de publicación: 17/Junio/2021 a las 00:16
|
Hola! Creo que creando una simple consulta de actualización sin criterios te valdría. Pega en la siguiente SQL en una consulta en vista SQL y prueba:- UPDATE [1 - ProduccionMes] SET [1 - ProduccionMes].MontoCarta = [ProduccionMes]; ------------- Un Saludo. |
Publicado por: DiegoApe
Fecha de publicación: 21/Julio/2021 a las 23:35
|
Hola, Mounir! Sí, con tu código si pude realizarlo! Muchas gracias, se puede cerrar el hilo. ------------- Saludos, Diego Aguilar |