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, non credevo evidenziassi anche l'ID.

Ciao