Sumar una columna de mi cuadro de lista access
Tego una duda espero que alguien me pueda ayudar y decir que estoy haciendo mal.
Tengo un cuadro de lista en el que quiero hacer la suma total de los precios que en ella aparecen uso este codigo
Dim i As Integer
Me.Lista_P.BoundColumn = 5
For i = 0 To Me.Lista_P.ListCount - 1
tot = Nz(tot, 0) + Lista_P.ItemData(i)
Me.Texto_T = tot
Next i
Me.Lista_P.BoundColumn = 1
Pero en mi cuadro de texto no me aparece la suma, me aparece cada uno de los precios
Mas explicito si tengo un producto en $60, otro en $30 y otro en $10
No me aparce en el cuadro Texto_T =$100 que es la suma
Me aparece =603010
Y no entiendo porque
2 Respuestas
Partiendo de la premisa de que no entiendo esa operación, ya que si tienes una tabla Precios en función del producto que sea, parece más lógico que en el cuadro de texto, al que llamaremos Idproducto, en el evento Después de actualiza pongas
Precio=dsum("precio","precios","idproducto=" & me.idproducto & "")
Una vez dicho esto, te pongo la instrucción. Supongamos que tienes un cuadro de lista llamado lista7 donde te aparecen los diferentes precios y un cuadro de texto donde quieres que te aparezca la suma llamado Precio. Yo lo he puesto en el evento al hacer clic de un botón, pero lo puedes poner en otro lado
DoCmd.SetWarnings False
Dim julian As Variant
Dim gonzalez As Integer
For Each julian In Me.Lista7.ItemsSelected
gonzalez = Me.Lista7.ItemData(julian)
Precio = Nz([Precio]) + gonzalez
Next
O sea, seleccionas los precios que te interese sumar y pulsas el botón