esempio recordset oef

  • fbmonte
  • Avatar di fbmonte Autore della discussione
  • Visitatori
  • Visitatori
6 Anni 11 Mesi fa #301 da fbmonte
fbmonte ha creato la discussione 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

Si prega Accedi a partecipare alla conversazione.

Tempo creazione pagina: 0.173 secondi
Powered by Forum Kunena