AccessTr.neT

Değerli Access Dostları,
Sayenizde tablodaki bir sütunu gruplandırıp gruptaki verilere ait son dolu kayıtları, bu veriye göre tablo güncellemeyi ve sondan bir önceki dolu kayıtları almayı öğrendim. Teşekkür ederim.
Yaptığım programda bu konuyla ilgili son aşamaya gelmiş oldum. Son dolu kayıt ve sondan bir önceki dolu kayıt arasındaki ÖstrusTarihiDV tarihlerini saydırıp + 1 yapmak istiyorum. Böylece hayvanı enson gebe bırakmak için kaç tohumlama yapmışım hayvan bazında öğrenmiş olacağım. Tablo için konuşursak TR420000722140 nolu hayvan için 2, TR420000722142 için 1, TR420001096024 için 4 değerine ulaşmak. Veri eklenmiş hali ekte yardımlarınızı (özellikle sayın akkaya) bekliyorum.

Yeni sorgu oluştur, Sql koduna aşağıdakileri ekle,

SELECT DişiDKulakNo, Count(ÖstrusTarihiDV) AS SayÖstrusTarihiDV

FROM (SELECT DişiDKulakNo, ÖstrusTarihiDV FROM DişiDölVerimY WHERE (((ÖstrusTarihiDV) Between Dlookup ("[SonDoğurmaTarihiDV]","U_Dogurmalar_Son","[DişiDKulakNo]=" & "'" & [DişiDKulakNo] & "'") And Dlookup ("[SonDoğurmaTarihiDV1]","U_Dogurmalar_sondan_bironceki","[DişiDKulakNo]=" & "'" & [DişiDKulakNo] & "'"))) ORDER BY DişiDKulakNo)  AS srg_farkbul

GROUP BY DişiDKulakNo;

Sayın Akkaya,

Ne diyeceğimi şaşırdım. Jet ve aynı zamanda doğru cevab. ne diyeyim iyiki varsınız.

srg_farkbul diye sorgu oluşturmuşsunuz srg_farkbul un kayıt kaynağı DişiDölVerimY tablosu mu yoksa sorgulardan biri mi

(13/07/2015, 21:40)aktif42 yazdı: [ -> ]srg_farkbul diye sorgu oluşturmuşsunuz srg_farkbul un kayıt kaynağı DişiDölVerimY tablosu mu yoksa sorgulardan biri mi

srg_farkbul, Sql kodu

SELECT DişiDKulakNo, ÖstrusTarihiDV FROM DişiDölVerimY WHERE (((ÖstrusTarihiDV) Between Dlookup ("[SonDoğurmaTarihiDV]","U_Dogurmalar_Son","[DişiDKulakNo]=" & "'" & [DişiDKulakNo] & "'") And Dlookup ("[SonDoğurmaTarihiDV1]","U_Dogurmalar_sondan_bironceki","[DişiDKulakNo]=" & "'" & [DişiDKulakNo] & "'"))) ORDER BY DişiDKulakNo

olan farklı bir sorgu. Sonucun tek sorguda görünmesi için sorguları birleştirdim.

Sayın Akkaya,

Diyecek bir şey bulamıyorum. Harikasınız, iyiki varsınız. Sıkışınca yine engin bilgilerinize başvuracağım.