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.