Listbox somma valori restituiti

Question

Buongiorno,

ho una listbox contenente un campo con valori numerici. Mi chiedevo se fosse possibile fare la somma di questi valori e restituirla dopo l'ultima riga.

Grazie

Answer 1

Una alternativa è impostare la listbox come lista valori e poplarla in un modo simile a questo:

Private Sub Form_Current()

    Dim rs As Recordset

    Dim TOT As Long

    Dim i As Integer

    i = 0

    TOT = 0

    Set rs = CurrentDb.OpenRecordset("select Importo From Tabella2")

    While Not rs.EOF

       Me.Elenco15.AddItem rs.Fields(0), i

        TOT = TOT + rs.Fields(0)

        i = i + 1

        rs.MoveNext

    Wend

    Me.Elenco15.AddItem TOT & "", Elenco15.ListCount

rs.close

End Sub

ovviamente con gli opportuni adattamenti.

Answer 2

Ciao Giorgio,

puoi postarmi la query (Sql) origine dati della list box? La tua domanda mi solletica un po'.

Mimmo

Answer 3

Se tu credi .-)

se l'origine dati della tua list box è una query puoi sempre fare una query di unione e accodargli un record che contiene il totale ma non saprei come evidenziarlo.

Ciao Mimmo

Answer 4

Ciao Mimmo,

c'è già.

era più carino se potessi avere la somma direttamente nella listbox.

Answer 5

Ciao Giorgio,

e se aggiungessi una test box con una DSum degli stessi importi?

Mimmo