Ado iki tarih arası veri alma

[acar6783]

Sorgu = "SELECT *  FROM  [" & sa & "] WHERE cdate('" & Left([Fiş No], 2) & "." & Mid([Fiş No], 3, 2) & "." & Mid([Fiş No], 5, 4) & "')) BETWEEN cdate('" & raporlama.ilktarih.Value & "') and cdate('" & raporlama.sontarih.Value & "') "

Bu kodlarda nerede hata yapıyo olabilirim?

Fişno sütununda;
30032016204100
Benzeri veriler var.

 

[Mehmet Şahin]

Bu satırdan sonra,

debug.print Sorgu

kodunu ekleyin, çalıştırıp, view menüsünden immediate window penceresini açın. Burada "Sorgu" değişkeninin derlenmiş halini göreceksiniz. Bunu eklerseniz daha kolay yorum yapabiliriz.
Kolay gelsin.

 

[acar6783]

SELECT *  FROM  [sayfa1$] WHERE cdate('..')) BETWEEN cdate('02.01.2015') and cdate('06.01.2015')

Pencerede bu şekilde yazıyor.
Muhtemelen 30032016204100 buradan tarih elde etme yöntemi yanlış

 

[Mehmet Şahin]

Merhaba,
aşağıdaki kodu dener misiniz?

Sorgu = "SELECT *  FROM  [" & sa & "] where (Mid([Fiş No], 5, 4) & Mid([Fiş No], 3, 2) & Mid([Fiş No], 1, 2))" _
       & " between '" & Format(cdate(raporlama.ilktarih.Value), "yyyymmdd") & "' and '" & Format(cdate(raporlama.sontarih.Value), "yyyymmdd") & "'"

 

[acar6783]

ilk = WorksheetFunction.Substitute(raporlama.ilktarih.Value, ".", "")
son = WorksheetFunction.Substitute(raporlama.sontarih.Value, ".", "")

Sorgu = "SELECT *  FROM  [" & sa & "] WHERE left([Fiş No],8) BETWEEN '" & ilk & "'  and '" & son & "'"

Ben de benzer bir çözüm bulmuşum

Test aşamaındaydı, acaba tarih aralığını bu şekilde filreleyebilirmi diye.

 

[acar6783]

Evet iki koddaaynı değerleri geiriyor ve sanırım hatasız filtreleme yapıyor.

Teşekkürler..

 

[acar6783]

Benim kod olmuyormuş

Sizin ki daha mantıklı oradan gidiyorum

 

[Mehmet Şahin]

İyi çalışmalar dilerim.