AGGIORNARE UNA TABELLA IN VBA

  • fbmonte
  • Avatar di fbmonte Autore della discussione
  • Visitatori
  • Visitatori
9 Anni 2 Settimane fa - 7 Anni 3 Mesi fa #292 da fbmonte
fbmonte ha creato la discussione AGGIORNARE UNA TABELLA IN VBA
Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim variabile1 As Long
Dim mq_prec As Long
Dim strCriteria As String

DoCmd.RunMacro ("macro_azzera_tabella_consumi")


strCriteria = "[id_forno] =" & Me.forno_num


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

Tabella.FindFirst (strCriteria)
variabile1 = Tabella.Fields("mq_rilevati")
mq_prec = variabile1

'Tabella.Edit 'Abilita la modifica del record
'Tabella.Fields("mq_rilevati_prec") = variabile
'Tabella.Update 'Salva La modifica

Do Until Tabella.NoMatch

Tabella.FindNext (strCriteria)
Tabella.Edit 'Abilita la modifica del record
If Tabella.Fields("mq_rilevati") <> mq_prec Then
Tabella.Fields("mq_rilevati_prec") = mq_prec
Tabella.Update 'Salva La modifica
End If
variabile1 = Tabella.Fields("mq_rilevati")
mq_prec = variabile1
Loop


'Chiusura tabella
Tabella.Close
'Chiusura DB
DBCorrente.Close


Set Tabella= Nothing
Set DBCorrente = Nothing
Ultima modifica: 7 Anni 3 Mesi fa da fbmonte.

Si prega Accedi a partecipare alla conversazione.

Tempo creazione pagina: 0.116 secondi
Powered by Forum Kunena