Visual basicte access veritabanından tarih sorgulamada hata

[cesin]

Merhaba arkadaşlar, visual basicte access veritabanını kullanarak belli tarihten eski kayıtları sorgulamak istiyorum. Bunu yaparken kullandığım SQL kodu hata veriyor. Hata nerden kayanaklanıyor olabilir yardımcı olursanız çok sevinirim acle bu hatayı düzeltmem gerekiyor. Hata uyarısı;

Run time error '-2147217900(80040e14)'
[Microsoft][ODBC Microsoft Access Sürücüsü]
'MALIK.VERGI_NO=[VergiNoGiriniz] AND TASINMAZ_HISSE.EDINME_TARIHI<#TarihGiriniz#" sorgu ifadesi içindeki tarihte sözdizimi hatası.

Accesste EDINME_TARIHI veri türü:Tarih/Saat biçim(format):Kısa Tarih olarak tanımlı.
Ayrıca VB Debug seçtiğimde rst. Open cmd satırının hatalı olduğunu işaretliyor.

VB de yazdığım kod;

Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim VergiNoGiriniz As Double
Dim TarihGiriniz As Date
cnn.Open "tapu_bilgi_sistemi"

VergiNoGiriniz = InputBox("Lütfen Vergi No Giriniz")
TarihGiriniz = InputBox("Lütfen Tarih Giriniz")

cmd.CommandType = adCmdText
cmd.CommandText = "SELECT MALIK.AD, MALIK.SOYAD, PARSEL.ADA_NO, PARSEL.PARSEL_NO, PARSEL.MAHALLE, TASINMAZ_HISSE.EDINME_SEBEBI, TASINMAZ_HISSE.EDINME_TARIHI, TASINMAZ_ISLEM.ISLEM, TASINMAZ_ISLEM.TARIH " & _
"FROM ((TASINMAZ INNER JOIN PARSEL ON TASINMAZ.TAS_NO = PARSEL.TAS_NO) INNER JOIN (MALIK INNER JOIN TASINMAZ_HISSE ON MALIK.VERGI_NO = TASINMAZ_HISSE.VERGI_NO) ON TASINMAZ.TAS_NO = TASINMAZ_HISSE.TAS_NO) INNER JOIN TASINMAZ_ISLEM ON TASINMAZ.TAS_NO = TASINMAZ_ISLEM.TAS_NO " & _
"WHERE MALIK.VERGI_NO=[VergiNoGiriniz] AND TASINMAZ_HISSE.EDINME_TARIHI< # TarihGiriniz # "



Set cmd.ActiveConnection = cnn
With rst
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic
End With
rst.Open cmd
Set DataGrid1.DataSource = rst

End Sub

[bahtiyarsenoglu]

# ler arasındaki tarih formatı mm/dd/yyyy şeklinde olmali
bunu da

Format(<tarih>,'mm/dd/yyyy')

ile sağlayabilirsin.

[cesin]

Cevap yazdığınız için çok teşekkür ederim. Yazdığınızı denedim fakat bu seferde aynı satırda yine sözdizimi hatası (eksik işleç) diye farklı bir hata verdi. Bu arada bendeki access Türkçe ve tarih. Gün Ay yıl olarak giriliyor. Belirtmek istedim. Yazdığım satır aynen şu şekilde;

"WHERE MALIK.VERGI_NO=[VergiNoGiriniz] AND TASINMAZ_HISSE.EDINME_TARIHI< Format(<tarih>,'mm/dd/yyyy')# TarihGiriniz # "

buradaki eksiklik ne olabilir. Cevaplarsanız çok sevinirim.

[bahtiyarsenoglu]

cesin, mesajından alıntı:

"WHERE MALIK.VERGI_NO=[VergiNoGiriniz] AND TASINMAZ_HISSE.EDINME_TARIHI< #Format(TarihGiriniz,'mm/dd/yyyy')#"

şeklinde deneyiniz.

[cesin]

"WHERE MALIK.VERGI_NO=[VergiNoGiriniz] AND TASINMAZ_HISSE.EDINME_TARIHI< # Format(TarihGiriniz,'mm/dd/yyyy') # "

aynen bu şekilde yazdım fakat hala bu seferde tarihte sözdizimi hatası veriyor. Bir türlü işin içinden çıkamadım

[cesin]

Arkadaşlar sorunuma hala bir çözüm bulamadım. Bu tarihler çok sıkıntı oluyor yamak zorundayım bu akşam lütfen yardımcı olurmusunuz?

[cesin]

Sorunun çözümü meğer tek kelimedeymiş! Arkadaşlar visual basicte tarih sorgularken ; Accesste tarihle ilgili kayıtların veri türünü kısa tarih ayarlamışsanız visual basicte tarihi atayacağınız değişkeni double olarak tanımlamanız gerekiyor çokta güzel oluyor Paylaşmak istedim umarım yardımcı olur..!

[sineld]

çözmüş olman güzel. iyi çalışmalar.