Access Sorgusunu Çalıştırmak için VBA kodu

Access Sorgusunu Çalıştırmak için VBA Kodu
İçindekiler

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?

DB'yi açma ve sorguyu manuel olarak yürütme işleminden kaçınabilirsiniz; bu kod, Access DB'yi manuel olarak açmadan bir Excel sayfasından bile yürütülecektir.

İç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




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
Adım 2: Access Sorgusunu Yürütmek için Çalıştır düğmesine veya F5'e tıklayın.

Erişim Sorgusunu Yürütmek İçin Vba Kodu

Anson Antony
Anson Antony
Anson katkıda bulunan bir yazar ve kurucudur. www.askeygeek.com. Yeni bir şeyler öğrenmek her zaman onun tutkusu olmuştur, ASKEYGEEK.com teknoloji ve iş tutkusunun bir sonucudur. İş Süreci Dış Kaynak Kullanımı, Finans ve Muhasebe, Bilgi Teknolojisi, Operasyonel Mükemmellik ve İş Zekası alanlarında on yıllık çok yönlü bir deneyime sahiptir. Görev süresi boyunca Genpact, Hewlett Packard, M*Modal ve Capgemini gibi kuruluşlarda çeşitli rol ve sorumluluklarda çalıştı. İş ve teknoloji dışında, birlikte saatlerce Sinema ve Film Yapımcısı izleyerek ve öğrenen bir film tutkunu!

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Tebrikler!
Başardın,
Kapatmayın!
Kazanma şansınızı girin 100.000 UberTTS Karakter Kredisi
Ziyaretiniz için teşekkürler!

Bu açılır pencere gösterilmeyecek size kalmış Tekrar!!!

UberTTS 100K Paskalya Yumurtası
Share to...