Excel VBA ile access vt sorgusu
#1
Arkadaşlar Excel VBA üzerinden access vtye bağlanıp listview nesnesine verileri alıyorum. Ad Soyad gibi aramalarıda listview üzerinden yapabiliyorum. Sorunum şu, access veritabanında excel userform üzerinden iki tarih arasında sorgulama yapabilirmiyim.
Teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#2
Formda iki textbox, küçük tarihin txtTarih1 ve büyük tarihin txtTarih2 olduğunu varsayalım...

Where şartını aşağıdaki gibi kullanabilirsiniz.

Visual Basic
  1. "select * " & _
  2. "from tablo1 " & _
  3. "where tarih between " & clng(cdate(txtTarih1)) & " And " & clng(cdate(txtTarih2))





  Alıntı
Bu mesajı beğenenler:
#3
(13-06-2012, 18:33)Zeki Gürsoy demiş ki: Formda iki textbox, küçük tarihin txtTarih1 ve büyük tarihin txtTarih2 olduğunu varsayalım...

Where şartını aşağıdaki gibi kullanabilirsiniz.

Visual Basic
  1. "select * " & _
  2. "from tablo1 " & _
  3. "where tarih between " & clng(cdate(txtTarih1)) & " And " & clng(cdate(txtTarih2))


Zeki hocam yanlış anladınız. Örnek dosyayı ekliyorum. UserFormu açınca durumu anlayacaksınız :D


Eklenti Dosyaları
.rar   İki Tarih Arası Rapor.rar (Boyut: 46,74 KB / İndirilme: 121)



  Alıntı
Bu mesajı beğenenler:
#4
Konu günceldir...

Sayın zeki hocamın vermiş olduğu kodları kendime bir türlü uyarlayamadım. Between operatörünü benim kod mantığıma göre ne şekilde dizayn etmem gerekiyor?



  Alıntı
Bu mesajı beğenenler:
#5
Merhaba..

Sorgunuz bu şekilde dizayn edilmeli..:

Visual Basic
  1. "Select * from Sorgu1 WHERE (A2 like '%" & aranacak2 & "%') AND " _
  2. & "ET between " & CLng(CDate(aranacak)) & " and " & CLng(CDate(aranacak3)) & " AND (A6 like '%" & aranacak4 & "%')"



Ayrıca bir kaç önerim olacak..

Fonksiyonu seçenekli yapmışsınız ama bu sıkıntı yaratabilir.. Ayrıca fonksiyonu kullanmak için change olayını kullanmayınız.. Ayrıca bir düğmeye uygulayınız..



  Alıntı
Bu mesajı beğenenler:
#6
(14-06-2012, 13:07)Taruz demiş ki: Merhaba..

Sorgunuz bu şekilde dizayn edilmeli..:

Visual Basic
  1. "Select * from Sorgu1 WHERE (A2 like '%" & aranacak2 & "%') AND " _
  2. & "ET between " & CLng(CDate(aranacak)) & " and " & CLng(CDate(aranacak3)) & " AND (A6 like '%" & aranacak4 & "%')"



Ayrıca bir kaç önerim olacak..

Fonksiyonu seçenekli yapmışsınız ama bu sıkıntı yaratabilir.. Ayrıca fonksiyonu kullanmak için change olayını kullanmayınız.. Ayrıca bir düğmeye uygulayınız..

Sayın taruz hocam...
Cevabınız için minnettarım. Opsiyonel olmasının sebebi değişik kriterlerde arama yapabilmem için. İkinci önerinizi dikkate aldım ve tüm aramaları butonlara tanımladım.
Asıl sıkıntım yukarıda vermiş olduğunuz kodları uyguladığımda Listview nesnesine access den listeler gelmiyor. Ve arama yapmaya kalktığımda Type Mismatch uyarısı alıyorum. acaba vermiş olduğum dosya üzerinde uyarlayıp ekleseniz fazlamı olmuş olurum Wubclub



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access & Excel Bağlantısı rosered1 1 161 04-03-2024, 20:44
Son Mesaj: Zeki Gürsoy
  Access Te Bulunan Tablodan Excel Userform Labele Veri Atma ersin_gurbuz 1 367 24-05-2021, 13:43
Son Mesaj: dsezgin
  Excel Dosyasındaki Sütunlara Access Tablosundan Açılır Listeli Verileri Almak abkbek 4 646 04-02-2020, 23:14
Son Mesaj: abkbek
  Excel evren89 5 875 09-09-2019, 14:30
Son Mesaj: onur_can
  excel vba userform ile access veri tabanına dosya upload etme arif0636 2 1.020 06-09-2019, 16:28
Son Mesaj: arif0636
  Access Üzerinde Excel Chart semihtuncer 0 885 05-12-2017, 22:27
Son Mesaj: semihtuncer
  Excel VBA Sorusu mengene 9 3.319 10-11-2016, 11:53
Son Mesaj: jon206
  excel farklılık onder123 3 1.956 08-08-2015, 18:52
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi