• 
  

  hur du uppdaterar en fråga i Access VBA

  
  

Att veta hur du uppdaterar data i en fråga i Microsoft Office Access med Visual Basic for Applications (VBA) kan du spara tid när du behöver 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
1
Starta Microsoft Office Access . välj " Databasverktyg och klicka på " Visual Basic . " Välj " Infoga " -menyn och klicka sedan på " Module "
2
Kopiera och klistra in följande kod på din modul . . :

Private Sub updateQuery ( )



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 , sista texten ) "

DoCmd. SetWarnings Falska

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 ', ' Svensson ' ) "

DoCmd. RunSQL ( strSQL )

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

DoCmd. RunSQL ( strSQL )



Set rst=db. OpenRecordset ( " SELECT tableToUpdate . * FRÅN tableToUpdate ; ")



rst. MoveLast

rst. MoveFirst

För rstCnt=0 till rst. RecordCount-1

Om RST . Fält (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 infogas nya rader med data , frågor skapas tabellen och uppdaterar det första fältet.

Previous：nothing Next：hur man använder Microsoft Script Debugger

Relaterade artiklar