hvordan man kan opdatere en forespørgsel i forbindelse med adgang VBA

Indlæg af Alice Christensen     opdateret: 2011-11-01

Vide, hvordan man opdaterer data i en forespørgsel i Microsoft Office Access ved hjælp af Visual Basic for Applications ( VBA ) kan du spare 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 se data i en database tabel . VBA er en edb-programmering sprog, der bruges til at automatisere rutineopgaver i Access
1
Start Microsoft Office Access . Vælg " Database Tools " og klik på " Visual Basic . " Vælg " Indsæt " menuen og derefter klikke på " Modul "
2
Kopier og indsæt følgende kode ind i din modul : .
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 tekst ) "
DoCmd. SetWarnings Falsk
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 . * FRA tableToUpdate " )

rst. MoveLast
rst. MoveFirst
For rstCnt=0 Til rst. RecordCount-1
Hvis rst . Felter (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 . Subrutinen opretter en ny tabel , skær nye rækker af data , forespørgsler tabellen oprettet og ajourføring af det første felt .


Previous:hvordan man kan tilføje elementer til slutningen af et array Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change