AccessTr.neT

Tam Versiyon: Access (vb)'te Kaynak Kodunda Tanımlı İfade Çağırabilmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
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] & "#" & 
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
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ı.
Merhaba, tarih olayı olursa # karakterinin de kullanılması gerekli.

Örnek uygulamanızı eklerseniz inceleyebilir, çözüm bulabiliriz.
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.
Sayfalar: 1 2