esempio recordset oef

Do While Not Me.Recordset.EOF

DoCmd.SetWarnings False

stDocName = "qry_totali_siviere"
DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.SetWarnings True


Set DBCorrente = currentdb
Set Tabella = DBCorrente.OpenRecordset("Select * from tmp_siviere2", dbOpenDynaset)

Tabella.MoveFirst

variabile1 = Tabella.Fields("SommaDin_siviere")
variabile2 = Tabella.Fields("SommaDiKg_tot")

Me.totali_siviere = variabile1
Me.consumo_siviere = Me.consumo / Me.totali_siviere
Me.consumo_kg = Me.consumo / (variabile2 / 1000)
'Chiusura tabella
Tabella.Close
'Chiusura DB
DBCorrente.Close

Me.Recordset.MoveNext
Loop