Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
Son Düzenleme: 25/01/2018, 12:39, Düzenleyen: mehmetb84.
Cevapla
#2
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] & "#" & 
Cevapla
#3
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
Eğer forumda yeni isen Buraya Tıklayarak Kuralları Okuyabilirsin.
Gizlilik Bilgilerinide Buraya Tıklayarak Okuyabilirsin.
En iyisi AccessTr.neT .
Son Düzenleme: 26/01/2018, 09:12, Düzenleyen: xNexus.
Cevapla
#4
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ı.
Cevapla
#5
Merhaba, tarih olayı olursa # karakterinin de kullanılması gerekli.

Örnek uygulamanızı eklerseniz inceleyebilir, çözüm bulabiliriz.
Cevapla
#6
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.
.rar tarihara.rar (Dosya Boyutu: 67,15 KB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da