AccessTr.neT

Tam Versiyon: Tarihleri Arasındaki Veriler
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
bu verilerin olduğu çalışmanızı ekler misiniz?
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])));
[Resim: do.php?img=10612]
https://resim.accesstr.net/do.php?img=10612
(27/11/2020, 11:57)berduş yazdı: [ -> ]bendeki sonuç
[Resim: do.php?img=10611]
https://resim.accesstr.net/do.php?img=10611

Merhaba,

Çalışma ektedir sorgunun vermesini istediğim çıktı OlmasıGereken tablosuna ekledim.

İyi çalışmalar.
(27/11/2020, 13:26)berduş yazdı: [ -> ]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])));
[Resim: do.php?img=10612]
https://resim.accesstr.net/do.php?img=10612

Hocam bende aynısını yapıyorum fakat sizin attığınız ekran çıktıları ile aynı sonucu vermiyor dosyayı paylaşabilir misiniz ?
kusura bakmayın yanlışlıkla sorgular için hep aynı kodu göndermişim. o nedenle hatalılarmış.
fonksiyonlu yöntemleri denediniz mi?

1. yöntem sorgu kodları
Küçüksorgu kodu
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])));
KucukTrh kodu
SELECT Tablo1.[NO], Min(DateAdd("n",4,[Tablo1]![Tarih])) AS MinTrh
FROM Tablo1
GROUP BY Tablo1.[NO];
fonksiyon kodu doğruymuş.
Sayfalar: 1 2 3 4