Formumda yer alan başlangıç tarihi metin kutusuna yazdığım tarihe göre formda yer alan listboxa kayıtların getirilmesini istiyorum. İşin ilginci aşağıda yeni tarih yazan değişkeni elle sorgu içine yerleştirdiğim zaman sorgu çalışıyor. Değişkene dönünce çalışmıyor.

Kullandığım Kod;

yeni_tarih ="#" & Me.bas_tar & "#"

sorgu = "SELECT * FROM [gelir-gider] WHERE [gelir-gider].[tarih]>" & yeni_tarih & " AND [gelir-gider].gel_gid='GELİR' AND [gelir-gider].[kisi]='" & Me.kisi_sec & "' ORDER BY [tarih] DESC;"

Me.Liste57.RowSource = sorgu

Nerede hata yapıyorum acaba? Yardımlarınız için teşekkür ederim.

sorgu = "SELECT * FROM [gelir-gider] WHERE [gelir-gider].[tarih]>#" & format(Me.bas_tar,"mm\/dd\/yyyy") & "# AND [gelir-gider].gel_gid='GELİR' AND [gelir-gider].[kisi]='" & Me.kisi_sec & "' ORDER BY [tarih] DESC;"

VBA da yukarida ki bicimde kullanabilirsiniz.

Çok teşekkür ederim sorunum çözüldü.