Rieccomi....:gren:
ho un database con dntro memoriazzati dei dati in questo modo
(campo data) "10 novembre 2002" (campo euro) "18,30"
(campo data) "20 novembre 2002" (campo euro) "15,30"
ecc..
io trammite una ricerca vorrei stampare su una form tutti risultati del mese di novembre e poi fare la somma del campo euro,
il mio problema è come stampare tutti i risultati e poi fare la somma
vi ricordo che sono una principiante di VB ed ho trovato sempre sul forum questo codice che funziona per fare la ricerca
ma questo mette i risultati dentro un list e poi come faccio a fare la somma del campo "euro"codice:Dim sqlstring As String Dim db As Database Dim rs As Recordset sqlstring = "select * from tabella where data like '*" & Replace(data, "'", "''") & "*'" Set db = OpenDatabase(App.Path & "\database.mdb", False, False) Set rs = db.OpenRecordset(sqlstring) Set Data.Recordset = rs If Not Data.Recordset.EOF Then Do While Not Data.Recordset.EOF List1.AddItem (Data.Recordset.Fields("data") & " - " & (Data.Recordset.Fields("euro")) Data.Recordset.MoveNext Loop Else MsgBox "Nessun record" End If rs.Close
Grazie mille
![]()
![]()

Rispondi quotando