Access Sorgusunu Çalıştırmak için VBA kodu (Resim ile)
Nedir?
Bu VBA kodu, aşağıdakileri çalıştırmanıza yardımcı olur Erişim MS Excel, Word vb. gibi VBA destekli araçlardan herhangi birinden sorgu.
Neden o?
Veritabanını açma ve sorguyu manuel olarak yürütme sürecinden kaçınabilirsiniz; bu kod bir Excel'den bile yürütülecektir Access'i açmadan sayfa DB'yi manuel olarak kullanın.
İçe Aktar'ı kullanırsanız Sorgu Sonuçlarına Erişim Önceki yazıda tartışılan kod, sorgu sonuçlarını Excel'e, her şeyi tek bir tıklamayla bile alırsınız.
Access Tablo/Sorgu verilerini Excel'e Aktarmak için VBA Kodu
Access Sorgusunu Yürütmek için VBA kodu nasıl kullanılır
(adsbygoogle = window.adsbygoogle || []).Push({});
Aşama 1: Aşağıdaki kodu kopyalayıp modülünüze yapıştırın.
Dim myDB As Veritabanı
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'DB yolunu belirtin ve 'MYDATABASE'i Access DB adınızla değiştirin
myDB.Execute "myQuery" 'myQuery'yi Access Sorgu adınızla değiştirin
myDB.close 'Bunu yalnızca DB'yi kapatmak istiyorsanız kullanın
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'DB yolunu belirtin ve 'MYDATABASE'i Access DB adınızla değiştirin
myDB.Execute "myQuery" 'myQuery'yi Access Sorgu adınızla değiştirin
myDB.close 'Bunu yalnızca DB'yi kapatmak istiyorsanız kullanın
Adım 2: Access Sorgusunu Yürütmek için Çalıştır düğmesine veya F5'e tıklayın.
Arkadaşlarınızla ve iş arkadaşlarınızla paylaşın!
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 !