Veta hur du uppdaterar data i en fråga i Microsoft Office Access använder Visual Basic for Applications ( VBA ) kan spara tid när du behöver för att kontinuerligt uppdatera data i tabeller . Access är en relationsdatabas management system som vanligen används för mindre lokala databaser . En fråga används för att visa data i en databastabell . VBA är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access . Instruktioner
1
Starta Microsoft Office Access , välj " Verktyg Database " och klicka på " Visual Basic . " Välj " Infoga " -menyn , klicka sedan på " Modul . "
2
Kopiera och klistra in följande kod på din modul :
Private Sub updateQuery ( ) katalog
Dim db som databas
Dim rst Som Recordset
Dim sQLString As String
Dim rstCnt As Integer
Set db = CurrentDb
sQLString = " CREATE TABLE tableToUpdate ( första texten , Senast TEXT ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sQLString ) katalog
strSQL = " INSERT INTO tableToUpdate VALUES ( " Oscar " , " Gonzalez ' ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO tableToUpdate VALUES ( ' Kitzia ' , ' Ramos ' ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO tableToUpdate VALUES ( ' John ' , ' Smith ' ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO tableToUpdate VALUES ( ' Anna ' , ' Williams ' ) "
DoCmd.RunSQL ( strSQL ) katalog
Set rst = db.OpenRecordset ( " SELECT tableToUpdate * FROM tableToUpdate , . " )
rst.MoveLast
rst.MoveFirst
För rstCnt = 0 att rst.RecordCount - 1
p Om rst.Fields ( 0 ) Value = " . Oscar "Då
rst.Edit
rst.Fields ( 0 ) . Value = " Emilio "
rst.Update
End If
rst.MoveNext
Nästa rstCnt
End Sub
3
Tryck " F5 " för att köra " updateQuery " subrutin . Subrutinen skapar en ny tabell skapas infogar nya rader med data , frågor bordet och uppdaterar det första fältet .
