Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Parametrik Sorgudaki parametre değerini VBA'ya aktarma

Parametrik Sorgudaki parametre değerini VBA'ya aktarma
mcuma
Yeni Üye 1-15

*
Kayıt Tarihi: 17.08.2009
Toplam 2 konu açtı.
Toplam 2 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
17-08-2009, 00:39
Merhaba,

Elimde oldukça büyük bir mdb dosyası var, dosyadan parametre ile tarih temelli
olarak veri çekerek excel'e aktarıyorum.

Sorguya parametre olarak girdiğim tarih değerini VBA'ya değişken olarak atayarak, yarattığım excel dosyasına isim olarak atama olanağım var mıdır?

Sorgumdaki parametrem [Lütfen Tarih Giriniz]

VBA'da Excel'e aktarımda kullandığım kod ise outputTo'dur.

Teşekkür ederim, iyi çalışmalar



  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 56 / 56
#2
17-08-2009, 13:38
Merhaba..

Sorguya parametreyi elle değilde form üzerindeki bir metin kutusundan verirseniz daha kolay olur.. Diğer türlü parametre kutusuna yazdığınız değeri oluşturmak istediğiniz excel dosyasına isim olarak atamamız mümkün değil.. Dosya isminlerinde kullanabilmemiz için tarihin formatını da değiştirmemiz gerekiyor çünkü..

Form üzerinden parametre verdiğinizde (doğrusu da budur zaten) bu hazırladığım kodu kullanabilirsiniz..

Önce metin kutusundaki tarihin(sorgumunuz ölçütüdür aynı zamanda) formatını değiştiriyoruz. Sonra da sorgunun ismini bu değişken yapıyoruz.. Excele aktardıktan sonra eski ismini sorguya iade ediyoruz.. Wink

OutputTo ile yapılabilecek çözüm bu olur.. Wink

Visual Basic
  1. Dim trz As String
  2. trz = Format(Me.metinkutusu_adi, "ddmmyy") 'Kriterin formatını değiştirelim..
  3. DoCmd.Rename trz, acQuery, "sorgu_adı" 'Sorgunun adını kriter yapalım..
  4.  
  5. DoCmd.OutputTo acQuery, trz, "MicrosoftExcel(*.xls)", "", False, "", 0 'Kriter ismi ile excel dosyası olarak kaydedelim.
  6. DoCmd.Rename "sorgu_adı", acQuery, trz 'Sorguya eski adını verelim..


Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Açılır Menüdeki Veriyi Metin Kutusuna Aktarma Pasham 1 304 19-02-2026, 21:18
Son Mesaj: adnan
  [FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma kertiller_55 1 371 03-10-2025, 15:32
Son Mesaj: dsezgin
  Parametre Değeri Gir Uyarısı hegu 3 402 23-05-2025, 14:55
Son Mesaj: hegu
  Sorgudaki Bilgileri Otomatik Tek Tek Mail Gönderme cirdakc 3 470 08-11-2024, 21:40
Son Mesaj: dsezgin
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 451 11-09-2024, 13:09
Son Mesaj: dsezgin
  Excele Aktarma evren89 1 375 09-08-2024, 20:50
Son Mesaj: dsezgin
  Excel'e Biçimli Aktarma evren89 3 539 01-07-2024, 22:56
Son Mesaj: evren89
  Işaretli Olanları Aktarma evren89 2 386 10-06-2024, 15:29
Son Mesaj: evren89

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):