Microsoft Office Access ist ein relationales Datenbank -Management-System häufig für kleinere und lokale Datenbanken verwendet. Visual Basic für Applikationen , die auch als VBA bekannt, ist eine Programmiersprache verwendet, um Routine-Prozesse zu automatisieren. Eine Abfrage wird verwendet, um Daten aus Datenbanktabellen abzurufen. Sie können eine Abfrage erstellen , um auch Ihre Daten in einer Datenbank-Tabelle . In wenigen Schritten können Sie VBA-Code schreiben , um ein Update Abfrage auszuführen und auch eine SELECT-Abfrage , um das Update zu sehen. Anleitung
1

Öffnen Sie die Nordwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2

Klicken Sie auf " Database Tools ", dann wählen Sie " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen. Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
3

Kopieren Sie den folgenden Code in das neue Modul an die Tabelle aktualisieren und dann das Update mit einer Auswahlabfrage .

Public Sub DAOQuery ()

Dim Titel As String Dim db

Wie DAO.Database

Dim rst als DAO.Recordset
< p > Dim qry As String

title = " DAO Query"

Set db = CurrentDb ()

qry = " UPDATE Mitarbeiter Mitarbeiter SET . [ Handy ] = '210 -999-999 ' "

qry = qry & " WHERE ((( Employees. [ Nachname ]) = ' Cencini ')); "

DoCmd.SetWarnings Falsch
< p> DoCmd.RunSQL ( qry )

Debug.Print Titel & ": SQL Update- Paramenter Abfrage: " & _

vbNewLine & "" & qry

qry = " Ausgewählte Mitarbeiter . [ Nachname ] , Mitarbeiter . [ Handy ] "

qry = qry & " FROM Employees "

qry = qry & " WHERE ((( Employees. [ Nachname ] ) = ' Cencini ')); "

Debug.Print Titel & ": SQL Abfrage: "& _

vbNewLine &" "& qry

' Führen Sie das qry und erstellen Sie einen Datensatz

Set rst = db.OpenRecordset ( qry )

Debug.Print Titel & " : Abrufen von Schema -Info für das gegebene Ergebnis fest: "

i = 0 bis rst.Fields.Count - 1 of

Debug.Print "