Skip to main content

AccessTr.neT


Tarih Sorgusuna Saat Dakika Engeli

Tarih Sorgusuna Saat Dakika Engeli

Çözüldü #1
Merhabalar,

Kapalı Excel dosyasından veri çekmek için kullandığım sorgu için destek rica ediyorum,

Sorgu = "select * from [yükleme$] where f3 =  " & CLng(CDate(TextBox1.Value)) & ""

sorgusu ile kapalı exceldeki yükleme sayfasının C sütunundaki tarihler textbox1 e eşitse ilgili satırları çalışmama alıyor ancak son zamanlarda programa gelen güncelleme ile C sütunundaki tarihler "dd.mm.yyy hh:mm:ss" şeklinde gelmeye başladı. Sorguda nasıl bir güncelleme yapabilirim..

Şimdiden teşekkür ederim.
Cevapla
#2
CLng yerine Cdbl kullanmayı deneyebilirsiniz eğer saat/dakika ve saniyeler de hesaba katılacaksa.
Cevapla
#3
(26/06/2020, 16:42)berduş yazdı: CLng yerine Cdbl kullanmayı deneyebilirsiniz eğer saat/dakika ve saniyeler de hesaba katılacaksa.

@berduş hocam selamlar,

yine aynı sonucu verdi hocam..

Kapalı dosyadaki C sürununda bazı tarihler  "dd.mm.yyyy" bazıları ise "dd.mm.yyyy hh:mm:ss" formatında. Sorgu ile sadece "dd.mm.yyyy" formatındaki veriler geliyor.
Cevapla
#4
sadece verilerin gelme formatı mı sorunlu? siz saat/dk/sn alanlarının görünmesini mi istemiyorsunuz?

Sorgu = "select * from [yükleme$] where clng(f3) =  " & Clng(CDate(TextBox1.Value)) 
şeklinde dener misiniz?
Cevapla
#5
(26/06/2020, 17:02)berduş yazdı: sadece verilerin gelme formatı mı sorunlu? siz saat/dk/sn alanlarının görünmesini mi istemiyorsunuz?


Sorgu = "select * from [yükleme$] where clng(f3) =  " & Clng(CDate(TextBox1.Value)) 
şeklinde dener misiniz?

Hocam örnek dosya eklemek için uğraşıyordum. Ekteki örnekte göreceğiniz üzere KARGO isimli excele YÜKLEME isimli excelden veri çekiyorum. Ancak YÜKLEME excelindeki sarı ile işaretlenmiş kayıtları getiremiyorum.
.rar YÜKLEME.rar (Dosya Boyutu: 617,44 KB | İndirme Sayısı: 3)
Cevapla
#6
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") & "'"
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da