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?
Możesz uniknąć procesu otwierania bazy danych i ręcznego wykonywania zapytania; ten kod zostanie wykonany nawet z Excela arkusz bez otwierania dostępu DB ręcznie.
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.
Udostępnij to swoim znajomym i współpracownikom!
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 !