Vide, hvordan man opdaterer data i en forespørgsel i Microsoft Office Access ved hjælp af Visual Basic for Applications ( VBA ) kan spare dig tid, når du har brug for løbende at opdatere data i tabeller. Access er en relationel database management system der almindeligvis anvendes til mindre lokale databaser. En forespørgsel bruges til at vise data i en database tabel. VBA er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver i Access. Instruktioner
1

Start Microsoft Office Access , skal du vælge " Database Tools " og klik " Visual Basic ". Vælg " Indsæt" menuen og klik på " Modul ".
2

Kopier og indsæt følgende kode i dit modul : Hej

Private Sub updateQuery ()

Dim db Som Database

Dim rst Som Recordset

Dim sQLString As String

Dim rstCnt As Integer

Set db = CurrentDb

sQLString = " CREATE TABLE tableToUpdate (Første TEKST , Sidste TEXT) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sQLString )

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

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO tableToUpdate VALUES ( ' 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 )

Set rst = db.OpenRecordset ( " SELECT tableToUpdate * FROM tableToUpdate , . " ) < br >

rst.MoveLast

rst.MoveFirst

rstCnt = 0 Til rst.RecordCount - 1
p Hvis rst.Fields (0) Value = " . Oscar "så

rst.Edit

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

rst.Update

End If

rst.MoveNext

Næste rstCnt

End Sub
3

Tryk på " F5 " for at køre " updateQuery " subrutine . Underrutinen opretter en ny tabel , indsætter nye rækker af data , forespørgsler bordet oprettet og opdaterer det første felt .