26/06/2020, 19:20
aşağıdaki kodu da deneyebilirsiniz
Sorgu = "select * from [yükleme$] where fix(f3) = " & Fix(CDbl(CDate(TextBox1.Value))) & ""Sorgu = "select * from [yükleme$] where fix(f3) = " & Fix(CDbl(CDate(TextBox1.Value))) & ""(26/06/2020, 19:20)berduş yazdı: [ -> ]aşağıdaki kodu da deneyebilirsinizfix diye fonksiyonu ilk defa gördüm hayatımda.Tarih formatınamı çeviriyor abey?
Sorgu = "select * from [yükleme$] where fix(f3) = " & Fix(CDbl(CDate(TextBox1.Value))) & ""
(26/06/2020, 19:36)berduş yazdı: [ -> ]fix() küsüratlı sayının virgüden sonraki kısmını almıyor, aşağı yuvarlıyorSağol abey.
mesela clng(7.7)=>8 olurken fix(7.7)=>7 olur
zaten accesste yanılmıyorsam aslında tarih türü yok gün kısmını tamsayı, saat:dakika:saniye.... kısmını ise bu sayının küsüratı olarak saklıyor yani aslında zaman+saat double sayı türü olarak saklanıyor biz saati girmezsek Access saatin küsüratı olarak 0 alıyor yani 00:00:00... gibi
(26/06/2020, 18:32)feraz yazdı: [ -> ]Alttaki kodu deneyin ayrıca hücreleri temizlemek için kodda ekledim.Koda eklersiniz.
Cells.ClearContents
Sorgu = "select * from [yükleme$] where format(f3,'dd.mm.yyyy') = '" & Format(CLng(CDate(TextBox1.Value)), "dd.mm.yyyy") & "'"
(26/06/2020, 19:20)berduş yazdı: [ -> ]aşağıdaki kodu da deneyebilirsiniz
Sorgu = "select * from [yükleme$] where fix(f3) = " & Fix(CDbl(CDate(TextBox1.Value))) & ""
Emeğinize sağlık.. Sağolun.