Come impostare il valore di un record specifico in Access Visual Basic

Microsoft Office Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office . Visual Basic, Applications Edition (VBA ) viene utilizzato per automatizzare le attività di routine in applicazioni Microsoft Office. I programmatori a volte incontrano la necessità di aggiornare il valore di un record specifico in una tabella di programmazione. In pochi passi è possibile scrivere codice VBA per aggiornare un record in una tabella . Istruzioni
1

Seleziona " Strumenti database . " Fare clic su " Visual Basic " per aprire la finestra "Microsoft Visual Basic " .

Creare una nuova sotto digitando " editRecordSet Private Sub ( ) " e premere " Invio".
2

digitare quanto segue per creare le variabili e impostare il database corrente :

Dim sqlstr As String

Dim rst come Recordset

Dim dbs As Database

dbs = CurrentDb
3

digitare quanto segue per creare una nuova tabella :

sqlstring = " CREATE tABLE editRecord ( F_Name TESTO , L_Name TESTO ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString ) economici 4

digitare quanto segue per aggiungere tre record di dati alla tabella :

strSQL = "INSERT INTO editRecord VALUES ( 'Sebastian ', ' PUGA ') "

DoCmd.RunSQL ( strSQL ) per

strSQL =" INSERT INTO editRecord VALUES ( 'Maria ', ' GONZALEZ ') "

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO editRecord VALUES ( 'John ', ' LOPEZ ') "

DoCmd.RunSQL ( strSQL ) per
5

digitare quanto segue per interrogare la tabella e restituire tutti i record :

Set rst = dbs.OpenRecordset ( "SELECT * FROM editRecord editRecord . " ) economici 6

digitare il comando seguente per passare a registrare il numero tre e aggiornare il campo " F_Name " a " JUAN " :

Set rst = dbs.OpenRecordset ( "SELECT * FROM editRecord editRecord . " ) per

RST . Move ( 2)

rst.Edit

rst.Fields ( " F_Name " ) . Value = " JUAN "

rst.Update
7

digitare quanto segue per chiudere il record stabilito e rilasciare la variabile " dbs " a memoria :

rst.Close

Set dbs = Nothing

Premere " F5 " per eseguire il tuo nuovo sottoprogramma.

• Come accedere alle tabelle di Word con Excel VBA 
• Come aprire una maschera in Access utilizzando Visual Basic