2 farklı yöntem kullandım
1 - sorgularla : 3 farklı sorgu oluşturun
a) ilkID sorgusu
SELECT Tablo1.[NO], First(Tablo1.ID) AS İlkID
FROM Tablo1
GROUP BY Tablo1.[NO];
b) ilkIDTrh sorgusu
SELECT Tablo1.[NO], First(Tablo1.ID) AS İlkID
FROM Tablo1
GROUP BY Tablo1.[NO];
c) Kucuk sorgusu bu sorgu sonuç sorgusudur
SELECT ilkIDTrh.[NO], Tablo1.ID, Tablo1.Tarih
FROM ilkIDTrh INNER JOIN Tablo1 ON ilkIDTrh.[NO] = Tablo1.[NO]
WHERE (((Tablo1.Tarih)<DateAdd("n",4,[ilkIDTrh]![Tarih])));
______________________________-->||<--__________________________________
2 - fonksiyon ve bu fonksiyona bağlı sorgu
a) Sirala fonksiyon kodu (bu fonksiyon Modüle) eklenecek
Public Function Sirala(No As String) As Date
IDx = DMin("ID", "Tablo1", "[NO]='" & No & "'")
TrhX = Dlookup ("Tarih", "tablo1", "ID=" & IDx)
Sirala = DateAdd("n", 4, TrhX)
End Function
b) bu fonksiyona bağlı SrgSirala sorgusunun kodu
SELECT Tablo1.ID, Tablo1.[NO], Tablo1.Tarih, Tablo1.Durum
FROM Tablo1
WHERE (((Tablo1.Tarih)<Sirala([NO])));
bu 2 yöntemden her hangi biri olabilir.
tabi soruyu yanlış anlamadıysam