Almacenar y sumar valores en un campo
Hola, agradecería quien me pueda ayudar, Quisiera que un formulario de mi base de datos access tenga un campo donde pueda agregar un numero y al dar enter este se borre y se sume al valor de otro campo. Por ejemplo en el campo GASTOS yo ingreso 20 y al dar enter se borre y se agregue en otro llamado TOTAL GASTOS. Y si agrego 30 en GASTOS al dar enter se borre y me sume 50 en TOTAL GASTOS. Me imagino que debe haber un código para agregar en los cuadros de texto pero no lo se.
Muchas Gracias
Javier
Muchas Gracias
Javier
1 Respuesta
Respuesta de andi_andi
1
He creado una tabla con un campo llamado Total, después he creado un formulario en el que he agregado la tabla que cree, en el diseño he insertado un texto de la tabla Total y le he llamado valorTotal, también he añadido otro texto independiente que se llama Entravalor.
Pega este código en un procedimiento de evento en Después de actualizar, el texto independiente llamalo Entravalor y pega este código.
Private Sub EntraValor_AfterUpdate()
If ValorTotal = 0 Then
Me.ValorTotal.Value = EntraValor
EntraValor = .Value = ""
Else
ValorTotal.Value = EntraValor + ValorTotal.Value
EntraValor = .Value = ""
End If
End Sub
Pega este código en un procedimiento de evento en Después de actualizar, el texto independiente llamalo Entravalor y pega este código.
Private Sub EntraValor_AfterUpdate()
If ValorTotal = 0 Then
Me.ValorTotal.Value = EntraValor
EntraValor = .Value = ""
Else
ValorTotal.Value = EntraValor + ValorTotal.Value
EntraValor = .Value = ""
End If
End Sub
