en küçük tarihe göre
1 - Sorgular ile: bu defa 2 sorgu yeterli oldu
a) en küçük tarihi bulup 4 dk ekleyen KucukTrh sorgusunun Sql kodu

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

FROM Tablo1

GROUP BY Tablo1.[NO];

b) sonuç sorgusu olan KucukSorgu sorgusunun  Sql kodu

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

FROM Tablo1

GROUP BY Tablo1.[NO];

---------------------------->||<--------------------------------
2 - fonksiyon ve sorgu ile
a) modüldeki Sirala fonksiyonunun kodu

Public Function Sirala(No As String) As Date

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

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

End Function

b) modüldeki fonksiyonu kullanarak çalışsan SrgSirala sorgusunun Sql kodu

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

FROM Tablo1

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

https://resim.accesstr.net/do.php?img=10612