AccessTr.neT

Ben hiç fonksiyonu denemedim şimdi denedim doğrudur şuan oldu elinize sağlık çok teşekkürler. Allah razı olsun

Dosyanızı indirdim ama maalesef tam kontrol etme imkanım olmadi
Sonuçları iyice kontrol ettiniz mi kesin doğru mu? Alel acele yaptığım denemede tam olarak sizin tablonuzdaki sonucu vermedi sanki.

(27/11/2020, 14:25)berduş yazdı: [ -> ]Dosyanızı indirdim ama maalesef tam kontrol etme imkanım olmadi
Sonuçları iyice kontrol ettiniz mi kesin doğru mu? Alel acele yaptığım denemede tam olarak sizin tablonuzdaki sonucu vermedi sanki.

1 milyona yakın veride çalıştırdım bu fonksiyonu sonuçları aldım kontrollerini sağlıyorum şuan

ben tablodaki ID alanlarına bakmışım o nedenle sonuçlar hatalı görünmüş
ama şöyle bir sorun gördüm: ben +4 dakikadan küçük olanları almışım, siz eşit ve küçük almışsınız galiba?
çalışma ektedir
1 - Sorgular
a) KucukTrh en küçük tarihleri bulan sorgunun Sql kodu

SELECT Tablo1.[NO], Min(DateAdd("n",4,[Tablo1]![Tarih])) AS MinTrh

FROM Tablo1

GROUP BY Tablo1.[NO];

b) KucukSorgu Sonuç sorgusu

SELECT Tablo1.ID, Tablo1.[NO], Tablo1.Tarih, Tablo1.Durum

FROM Tablo1 LEFT JOIN KucukTrh ON Tablo1.[NO] = KucukTrh.[NO]

WHERE (((Tablo1.Tarih)<=CDate([KucukTrh]![MinTrh])));

----------------------------->||<---------------------------------
2 - fonksiyonlu sorgu
a) Sirala fonksiyonu

Public Function Sirala(No As String) As Date

    TrhX = DMin("Tarih", "tablo1", "[NO]='" & No & "'")

    Sirala = DateAdd("n", 4, TrhX)

End Function

b) sorgu kodu

SELECT Tablo1.ID, Tablo1.[NO], Tablo1.Tarih, Tablo1.Durum

FROM Tablo1

WHERE (((Tablo1.Tarih)<=Sirala([NO])));

Hocam bir öncekini de kontrol ettiğimde verilerin doğru geldiğini gördüm teşekkürler

rica ederim)
iyi çalışmalar