Access - Sumar datos de un cuadro de lista

Tengo en un formulario un cuadro de lista con dos columnas, una de las columnas tiene cantidades, me gustaria sacar el total en un cuadro de texto si se puede.

Muchas Gracias .

Hola:

Esta puede ser una forma de hacerlo:

Dim i As Integer

'En caso de que queramos sumar una columna que no sea la dependiente,
'Ponemos como dependiente la columna que queremos sumar
Me.Lista1.BoundColumn = 2

For i = 0 To Me.Lista1.ListCount - 1
Me.txtSuma = Nz(txtSuma, 0) + Me.Lista1.ItemData(i)
Next i

'Volvemos a establecer la columna dependiente predeterminada
Me.Lista1.BoundColumn = 1

Un saludo

Hola mi menda, ante todo agradecerte tu tiempo, como ves mi nivel de acces es muy limitado no tengo muy claro donde debo introducir el codigo que me has enviado, mi cuadro de lista es lista16 y el cuadro de texto Texto39.

Dim i As Integer

Me.Lista16.BoundColumn = 2

For i = 0 To Me.Lista16.ListCount - 1
Me.Texto39 = Nz(Texto39, 0) + Me.Lista16.ItemData(i)
Next i

Me.Lista1.BoundColumn = 1

Un saludo

Hola:
Los controles al igual que los formularios tienen una ficha con sus propiedades, etc..., en esa ficha vemos varias pestañas, y una de ellas es Eventos, hay verás las opciones(eventos), y tienes que escoger el evento que quieras para que se ejecute el código. Por ejemplo sí haces un botón de comando verás un evento que es Al hacer Click, te situas con el ratón en esa opción y seleccionas [Procedimiento de evento], a la derecha verás un pequeño botón con tres puntos seguidos, lo pulsas y entrarás en el editor de visual basic y el cursor situado entre dos palabrejas, en el sitio que te marca el cursor pegas el código.
Te miras los eventos del formulario o control y decide donde pegas el código. Has adaptado el código perfectamente.

Un saludo.

Hola:

He seguido tus indicaciones, lo he intentado en los Eventos antes de actualizar y despues de actualizar no sucede nada, en cambio si lo coloco en el evento al recibir el enfoque o al hacer click me da un error de no coinciden los tipos. He intentado quitandole las intruccion BoundColumn por si la columna dependiente es donde tengo los numeros que quiero sumar. No se me ocurre nada mas!!!!!

Volviendo a agradecerte tu tiempo. Un Saludo

Hola:
Te he enviado un ejemplo a tu correo.

Un saludo

Puedes enviarme el ejemplo a mi? estoy intentando hacer eso, pero no me sale

hola tengo una duda sobre este proceso me marca que no hay un miembro asociado me podrian ayudar.
mi cuadro de lista se llama "lstCPP" y la suma de la columna totales la debo de ver en el cuadro de texto "texto 87".

Dim i As Integer

Me.lstCPP.BoundColumn = 2

For i = 0 To Me.lstCCP.ListCount - 1
Me.Texto87 = Nz(Texto87, 0) + Me.lstCPP.ItemData(i)
Next i

Me.lstCPP.BoundColumn = 1