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