VBA-Code zum Ausführen der Zugriffsabfrage (mit Bild)
Was ist es?
Dieser VBA-Code hilft Ihnen beim Ausführen der Zugriff Abfrage aus einem der VBA-unterstützten Tools wie MS Excel, Word usw.
Warum ist es?
Sie können sich das Öffnen der Datenbank und die manuelle Ausführung der Abfrage ersparen. Dieser Code lässt sich sogar aus einer Excel-Datei ausführen. ohne Öffnen des Access- DB manuell.
Wenn Sie den Import verwenden Auf Abfrageergebnisse zugreifen Code, der im vorherigen Beitrag besprochen wurde, erhalten Sie sogar die Abfrageergebnisse in Excel, alles mit nur einem Klick.
VBA-Code zum Importieren von Zugriffstabellen-/Abfragedaten in Excel
So verwenden Sie VBA-Code zum Ausführen der Zugriffsabfrage
(adsbygoogle = window.adsbygoogle || []).push({});
Schritt 1: Kopieren Fügen Sie den folgenden Code in Ihr Modul ein.
Dim myDB als Datenbank
Set myDB = OpenDatabase(“C:\MYDATABASE.mdb”) 'Erwähnen Sie den DB-Pfad und ersetzen Sie 'MYDATABASE' durch Ihren Access-DB-Namen
myDB.Führen Sie „myQuery“ aus 'Ersetzen Sie 'myQuery' durch den Namen Ihrer Zugriffsabfrage
myDB.close 'Verwenden Sie dies nur, wenn Sie DB schließen möchten
Set myDB = OpenDatabase(“C:\MYDATABASE.mdb”) 'Erwähnen Sie den DB-Pfad und ersetzen Sie 'MYDATABASE' durch Ihren Access-DB-Namen
myDB.Führen Sie „myQuery“ aus 'Ersetzen Sie 'myQuery' durch den Namen Ihrer Zugriffsabfrage
myDB.close 'Verwenden Sie dies nur, wenn Sie DB schließen möchten
Schritt 2: Klicken Sie auf die Schaltfläche Ausführen oder F5, um die Zugriffsabfrage auszuführen.
2 Responses
Hello Anson, try to find out how, but I can’t….. (aaargggghhh)
I have a simple MDB (accessDB) with one table LoginUserDB
There are 3 fields: UserName UserShortName LastLogIn
UserShortName = a date field, the other two (UserName & UserShortName) are text fields
What will be the best way, if I want to search for all:
UserName = anson.antony
and update on that all, the field: UserShortName to XXX
and the field LastLogIn to Format(Now, “DD.MM.YYYY”) (actual date)
Sorry for bothering you, but I test so different ways without result….
Thanks in advance
Pedro
Resolved = Thanks and sorry !