Kod VBA do wykonania zapytania Access (z obrazem)
Co to jest?
Ten kod VBA pomaga uruchomić Dostęp zapytanie z dowolnego narzędzia obsługiwanego przez VBA, takiego jak MS Excel, Word itp.
Dlaczego tak jest?
You can avoid the process of opening the DB and executing the query manually; this code will execute even from an Excel sheet without opening the Access DB manually.
Jeśli używasz opcji Importuj Wyniki zapytań Access Kod omówiony w poprzednim poście pozwala nawet pobrać wyniki zapytania do Excela, wszystko za pomocą jednego kliknięcia.
Kod VBA do importowania danych tabeli / zapytania programu Access do programu Excel
Jak używać kodu VBA do wykonywania zapytań Access?
(adsbygoogle = window.adsbygoogle || []).push({});
Krok 1: Skopiuj i wklej poniższy kod do swojego modułu.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Podaj ścieżkę do bazy danych i zastąp 'MYDATABASE' nazwą bazy danych Access.
myDB.Execute "myQuery" 'Zastąp 'myQuery nazwą zapytania Access
myDB.close "Użyj tego tylko, jeśli chcesz zamknąć DB
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Podaj ścieżkę do bazy danych i zastąp 'MYDATABASE' nazwą bazy danych Access.
myDB.Execute "myQuery" 'Zastąp 'myQuery nazwą zapytania Access
myDB.close "Użyj tego tylko, jeśli chcesz zamknąć DB
Krok 2: Kliknij przycisk Uruchom lub F5, aby wykonać zapytanie dostępu.
