Access (vb)'te Kaynak Kodunda Tanımlı İfade Çağırabilmek

1 2
25/01/2018, 12:28

mehmetb84

MErhaba Arkadaşlar;
Aşağıdaki kodda göreceğiniz olusturtarih1 ve olusturtarih2 ifadelerini listekutusu isimli listekutusunun kaynak koduna çağırmak istiyorum.
Bu alanların forma çağrılması konusunda sorun yok. Denemek için metin kutusu yaptım istediğim gibi kodlar geliyor. Fakat Select ifadesi içerisinde & " & [olusturtarih1] & "  ve  & [olusturtarih1] &  ve hatta [olusturtarih1]  şeklinde yazmayı denedim, hiçbiri bu değeri çağırmadı. 
Doğru olan yazım nedir? Yardımcı olabilir misiniz?


Private Sub Listeesle_Click()
Dim olusturulantarih, olusturtarih1, olusturtarih2 As Date
Dim baglam As Integer

baglam = Me.Listeesle.Column(8)

olusturulantarih = Dlookup ("[tofatura_tarihi]", "toplafaturalarust", "[tofatura_no]= " & baglam)
olusturtarih1 = DateAdd("d", -5, olusturulantarih)
olusturtarih2 = DateAdd("d", 5, olusturulantarih)



Me.Listekutusu.Requery

Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_kimlik AS Kimlik, fat_tip AS fattip, fat_tarih AS tarih, fat_adetmt AS mt, fat_birim AS adetmt, fat_fiyatdov AS fiyat, fat_doviz AS pb, fat_no AS faturano, fat_tedarikci AS Tedarikçi, fat_otomatik AS arama2 FROM t_faturalar WHERE (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![faturaesle]![gecici] & '*')" & _
"AND ((t_faturalar.fat_tarih)>" & [olusturtarih1] & " )  ((t_faturalar.fat_tarih)<" & [olusturtarih2] & " ) AND ((t_faturalar.fat_adetmt) Like '*' & [Formlar]![faturaesle]![gecici4] & '*') AND ((t_faturalar.fat_no) Like '*' & [Formlar]![faturaesle]![gecici11] & '*') AND ((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![faturaesle]![gecici2] & '*') AND ((t_faturalar.fat_otomatik) Like '*' & [Forms]![faturaesle]![Metin234] & '*') AND (([fat_otomatik] & '*' & [fat_no] & '*' & [fat_urunadi] & '*' & [fat_tarih] & '*' & [fat_tedarikci] & '*' & [fat_tip] & '*' & [fat_adetmt] & '*' & [fat_fiyat] & '*' & [fat_doviz] & '*' & [fat_not] & '*' & [fat_kimlik] & '*' & [fat_durum]) Like '*' & [Forms]![faturaesle]![Metin100] & '*'))" & _
"ORDER BY t_faturalar.fat_tarih DESC;"


End Sub
25/01/2018, 22:47

direnist

Merhaba;
Bildiğim kadarı ile tarih kritelerinin başında ve sonunda "#" işareti olmalı. Yani tüm tarih kriterlerinizi aşağıdaki şekilde yazarak dener misiniz?
İyi çalışmalar.

& "#" & [olusturtarih1] & "#" & 
26/01/2018, 09:11

xNexus

direnist arkadaşıma katılmaktayım kardeşim, Boşluklar Sadece VeresiyeVs.Vs. Programlard a Boş Bırakılır.Oda Programı Kullanırken Yazılan Yazının Aktarılmasında Kulanır
05/02/2018, 16:31

mehmetb84

Yalnız like kriteri yok ona dikkat ettiniz mi?
Belirtilen tarihten büyük (veya küçük) olmasını istediğim bir kriter yazıyorum.
Bu arada çift yerine tek tırnak da deneyim yine olmadı.
05/02/2018, 16:52

ozanakkaya

Merhaba, tarih olayı olursa # karakterinin de kullanılması gerekli.

Örnek uygulamanızı eklerseniz inceleyebilir, çözüm bulabiliriz.
05/02/2018, 16:59

mehmetb84

Merhaba Ozay bey,
Örneğim ektedir.
Faturaesle formunda listesle adlı listekutusuna tıkladığımda,  (sağ tarafındaki) listekutusunun tıklanan kaydın tarih aralığına göre süzülmesini istiyorum.

ilginiz için teşekkürler.
1 2