Lo Zibaldone Informatico

Qui sotto un codice generico per la modifica di una tabella tramite l'utilizzo dei DAO (Data Access Objects)

Dim db As DAO.Database

Dim rst As DAO.Recordset

Dim campo_controllo As String

Set db = CurrentDb

Set rst = db.OpenRecordset("nome_tabella", dbOpenDynaset)

campo_controllo = "qualcosa"

rst.MoveFirst

While Not rst.EOF

If (rst!campo1 = campo_controllo) Then

rst.Edit

rst!campo2 = "..."

'eccetera

rst.Update

rst.Close

db.Close

Exit Sub

End If

rst.MoveNext

Wend

rst.Close

db.Close