Wie Sie eine Abfrage in Access VBA aktualisieren

Zu wissen, wie zum Aktualisieren von Daten in einer Abfrage in Microsoft Office Access kann mithilfe von Visual Basic für Applikationen (VBA) Sie Zeit sparen Wenn Sie brauchen zu kontinuierlich Aktualisieren von Daten in Tabellen. Der Zugang ist ein relationales Datenbank-Managementsystem für kleinere lokale Datenbanken verwendet. Eine Abfrage dient zum Anzeigen von Daten in einer Datenbanktabelle. VBA ist eine Computer-Programmiersprache, die zum Automatisieren von Routineaufgaben in Access verwendet.

Anweisungen

1 Starten Sie Microsoft Office Access "Datenbanktools" und klicken Sie auf "Visual Basic." Wählen Sie im Menü "Einfügen" und dann auf "Module".

2 Kopieren Sie und fügen Sie den folgenden Code in das Modul ein:

Private Sub updateQuery()

Dim Db als Datenbank

Dim Rst als Recordset

SQLString As String Dim

Dim RstCnt As Integer

Set Db = CurrentDb

sQLString = "CREATE TABLE TableToUpdate (erster TEXT, letzte 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)

Festlegen von Rst = Db. OpenRecordset ("SELECT tableToUpdate.* FROM TableToUpdate;")

RST. MoveLast

RST. MoveFirst

Für RstCnt = 0, Rst. RecordCount - 1

If rst.Fields(0).Value = "Oscar" Then

rst.Edit

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

rst.Update

End If

RST. MoveNext

Nächste rstCnt

EndSub

3 Drücken Sie "F5", um die "UpdateQuery"-Unterroutine ausgeführt. Die Unterroutine erstellt eine neue Tabelle, fügt neue Datenzeilen, fragt die Tabelle erstellt und aktualisiert das erste Feld.