AGGIORNARE UNA TABELLA IN VBA
- fbmonte
- Autore della discussione
- 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
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
- Sei qui:
- Home
- Forum
- MsAccess 2010 - Sharepoint 2010
- AGGIORNARE UNA TABELLA IN VBA