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
