Microsoft Office Access er en relasjonsdatabase styringssystem som vanligvis brukes for mindre og lokale databaser . Visual Basic for Applications , også kjent som VBA er et programmeringsspråk som brukes til å automatisere rutinemessige prosesser . En spørring brukes til å hente data fra databasetabeller . Du kan bygge en spørring som også oppdatere data i en database tabell . I noen få trinn kan du skrive VBA -kode for å utføre en oppdatering spørring og også opprette en utvalgsspørring å se oppdateringen . Instruksjoner
en

Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
2

Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic Window . Klikk på " Insert "-feltet og velg " Module ".
3

Kopier og lim inn følgende kode inn i den nye modulen for å oppdatere Ansatte-tabellen og deretter se oppdateringen med en utvalgt spørring .

Public Sub DAOQuery ( )

Dim tittelen As String

Dim db As DAO.Database

Dim rst Som DAO.Recordset
< p > Dim QRY As String

title = " DAO Query "

Sett db = CurrentDb ( )

QRY = " UPDATE ansatte SET ansatte . [ Mobile Phone ] = '210 -999 til 999 ' "

QRY = QRY &" WHERE ( ( ( Employees. [ etternavn ] ) =' cencini ' )); "

DoCmd.SetWarnings False
< p> DoCmd.RunSQL ( QRY )

Debug.Print tittelen & " : SQL Update Paramenter Query :" & _

vbNewLine & " " & QRY

QRY = " SELECT ansatte . [ etternavn ] , ansatte . [ Mobile Phone ] "

QRY = QRY &" FROM ansatte "

QRY = QRY &" WHERE ( ( ( Employees. [ etternavn ] ) = ' cencini ' )); "

Debug.Print tittelen &" : SQL Query : "& _

vbNewLine &" "& QRY

' Kjør QRY og skape en rekord satt

Set rst = db.OpenRecordset ( QRY )

Debug.Print tittelen & " : Hent skjema info for gitt resultat satt : "

i = 0 For å rst.Fields.Count - en

Debug.Print "