Come aggiornare una query in Access VBA

October 5

Saper aggiornare i dati in una query in Microsoft Office Access utilizzando Visual Basic, Applications Edition (VBA) consente di risparmiare tempo quando si ha bisogno di aggiornare continuamente i dati in tabelle. Access è un sistema di gestione di database relazionali comunemente usato per i database locali più piccoli. Una query viene utilizzato per visualizzare i dati in una tabella di database. VBA è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access.

istruzione

1 Avviare Microsoft Office Access, selezionare "Database Tools" e cliccare su "Visual Basic". Selezionare il menu "Inserisci", quindi su "Modulo".

2 Copia e incolla il seguente codice nel modulo:

Private Sub updateQuery ()

db fioco come base di dati

Dim rst come Recordset

Dim SqlString As String

Dim rstCnt As Integer

Set db = CurrentDb

SqlString = "CREATE TABLE tableToUpdate (primo testo, ultimo testo)"

DoCmd.SetWarnings False

DoCmd.RunSQL (SqlString)

strSQL = "INSERT INTO VALORI tableToUpdate ( 'Oscar', 'Gonzalez')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI tableToUpdate ( 'Kitzia', 'Ramos')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI tableToUpdate ( 'John', 'Smith')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI tableToUpdate ( 'Anna', 'Williams')"

DoCmd.RunSQL (strSQL)

Set rst = db.OpenRecordset ( "SELECT * FROM tableToUpdate tableToUpdate;").

rst.MoveLast

rst.MoveFirst

Per rstCnt = 0 Per rst.RecordCount - 1

If rst.Fields(0).Value = "Oscar" Then

rst.Edit

rst.Fields (0) .Value = "Emilio"

rst.Update

Finisci se

rst.MoveNext

Successivo rstCnt

End Sub

3 Premere il tasto "F5" per eseguire la subroutine "updateQuery". La subroutine crea una nuova tabella, inserisce nuove righe di dati, interroga la tabella creata e aggiorna il primo campo.