Microsoft Office Access è un relational database management system incluso nella suite Microsoft Office. Visual Basic for Applications (VBA) viene utilizzato per automatizzare operazioni di routine nelle applicazioni di Microsoft Office. Programmatori a volte incontrati la necessità di aggiornare il valore di un record specifico in una tabella a livello di codice. In pochi passi è possibile scrivere codice VBA per aggiornare un record in una tabella.
Istruzioni
1
Selezionare "Strumenti di Database". Fare clic su "Visual Basic" per aprire la finestra di "Microsoft Visual Basic".
Creare un nuovo sub digitando "Private Sub editRecordSet ()" e premere "Invio".
2
Digitare il comando seguente per creare le variabili e impostare il database corrente:
Dim sqlStr As String
Dim rst As Recordset
() Dim dbs As Database
Set dbs = CurrentDb
3
Digitare il comando seguente per creare una nuova tabella:
sQLString = "Crea tabella ModificaRecord (F_Name testo, L_Name testo)"
DoCmd.SetWarnings False
DoCmd.RunSQL (sQLString)
4
Digitare il comando seguente per aggiungere tre record di dati alla tabella:
strSQL = "INSERT INTO ModificaRecord VALUES('SEBASTIAN','PUGA')"
DoCmd.RunSQL (strsql)
strSQL = "INSERT INTO ModificaRecord VALUES('MARIA','GONZALEZ')"
DoCmd.RunSQL (strsql)
strSQL = "INSERT INTO ModificaRecord VALUES('JOHN','LOPEZ')"
DoCmd.RunSQL (strsql)
5
Digitare quanto segue per eseguire query sulla tabella e restituire tutti i record:
Set rst = dbs. OpenRecordset ("SELECT editRecord.* FROM ModificaRecord")
6
Digitare il comando seguente per passare al numero tre record e aggiornare il campo "F_Name" a "JUAN":
Set rst = dbs. OpenRecordset ("SELECT editRecord.* FROM ModificaRecord")
RST. Spostare (2)
RST. Modifica
RST. Fields("F_NAME"). Valore = "JUAN"
RST. Aggiornamento
7
Digitare il comando seguente per chiudere il Set di Record e rilasciare la variabile "dbs" dalla memoria:
RST. Chiudere
Set dbs = Nothing
Premere "F5" per eseguire la subroutine di nuova.