Å vite hvordan å oppdatere data i en spørring i Microsoft Office Access ved hjelp av Visual Basic for Applications ( VBA ) kan spare deg for tid når du trenger å kontinuerlig oppdatere data i tabeller. Access er en relasjonsdatabase styringssystem som vanligvis brukes for mindre lokale databaser. En spørring brukes til å vise data i en database tabell . VBA er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access. Instruksjoner
en

start Microsoft Office Access , velg " Database Tools " og klikk " Visual Basic. " Velg " Insert" -menyen , klikk deretter på " Module ".
2

Kopier og lim inn følgende kode i modulen : en

Private Sub updateQuery ( )

Dim db As Database

Dim rst Som Recordset

Dim sQLString As String

Dim rstCnt As Integer

Set db = CurrentDb

sQLString = " CREATE TABLE tableToUpdate ( første teksten , Siste TEKST )"

DoCmd.SetWarnings False

DoCmd.RunSQL ( sQLString )

strsql = " INSERT INTO tableToUpdate VALUES ( ' Oscar ', ' Gonzalez ' ) "

DoCmd.RunSQL ( strsql )

strsql =" INSERT INTO tableToUpdate VERDIER ( Kitzia ',' Ramos ') "

DoCmd.RunSQL ( strsql )

strsql = " INSERT INTO tableToUpdate VALUES (' John ', ' Smith ' )"

DoCmd.RunSQL ( strsql )

strsql = " INSERT INTO tableToUpdate VALUES ( 'Anna ', ' Williams ' ) "

DoCmd.RunSQL ( strsql )

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

rst.MoveLast

rst.MoveFirst

For rstCnt = 0 For å rst.RecordCount - en
p Hvis rst.Fields ( 0 ) Verdi = " . Oscar " Da

rst.Edit

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

rst.Update

End If

rst.MoveNext

Neste rstCnt

End Sub
3

Trykk " F5 " for å kjøre " updateQuery " subrutine . Subrutinen oppretter en ny tabell , skapte setter nye rader med data , spørringer tabellen og oppdaterer det første feltet .