Raporda Gruplama Yapmadan Sıra No verilebilir mi?

[abkbek]

Arkadaşlar merhaba,
Ekteki örnek çalışmam üzerinde yer alan rapordaki doğum yeri alanlarını mevcut sıralamayı değiştirmeden her il adını kendi içerisinde 1'den başlamak kaydıyla numaralandırmak istiyorum. bu mümkün mü.
Yani Doğum tarihine göre sıraladığım listedeki doğum yerlerini numaralandırmak istiyorum.
örnek

kayıt1 Ankara (1) 01.01.1979
Kayıt2 İzmir (1) 01.01.1980
Kayıt3 Ankara (2) 01.01.1981
Kayıt3 İzmir (2) 02.01.1980

şeklinde

 

[Taruz]

Merhaba..

Rapor kaynağını bu sorguya dayandırın..:

SELECT trz.personelID, (select count(personelID) from tabloper where personelID<=trz.personelID and dyeri=trz.dyeri) AS İfade1, trz.adsoyad, trz.dyeri, trz.dtarihi
FROM tabloper AS trz

 

[seruz]

Sn. Taruz,
Query'de sonuç doğru çıkıyor ancak rapor dtarihi alanına göre sıralandığı için raporda yanlış çıkıyor maalesef.
Ya rapor sıralaması personelID yapılacak veya
rapor illaki Doğum Tarihine göre sıralanacaksa,
sıralamaya dtarihi alanına ilaveten personelID alanını da ilave etmek ve sorguyu da böyle yapmak lazım.

SELECT trz.personelID, (select count(*) from tabloper where dyeri=trz.dyeri and (dtarihi<trz.dtarihi or (dtarihi=trz.dtarihi and personelID<trz.personelID))) AS İfade1, trz.adsoyad, trz.dyeri, trz.dtarihi FROM tabloper AS trz;

Veya sorguya dokunmadan Detail 'in Print event ına şu kod yazılabilir.

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim Say, Kriter
    Kriter = "dyeri='" & [dyeri] & "'"
    Kriter = Kriter & " And (dtarihi<" & Format(dtarihi, "#")
    Kriter = Kriter & " or (dtarihi=" & Format(dtarihi, "#")
    Kriter = Kriter & " and personelID<" & [personelID] & "))"
    Say = DCount("*", "tabloper", Kriter)
    Me.Sayac = Say + 1
End Sub

3 seçeneği de ekte bulabilirsiniz.

Not: Aslında bu saatlere kadar uyanık kalıp nete ve foruma takılmam ama
avatarda fotosunu gördüğünüz 6 aylık kızım, nedense huzursuzlandı ve anasının pestilini çıkardıktan sonra
iş bana kaldı ve bu saatte ancak uyutabildim, tabii bu arada benim uykum kaçtı.
Foruma bi bakiim dedim, ben çözümle uğraşıp gönderdikten sonra baktım sn. taruz benden önce yazmış.
Aslında ben önce kodla çözmeye çalışmıştım ama yürüyen bakiye sorgusunda kullanılan çözüm daha uygun olmuş kesinlikle.
Bu saatte akıl edememişim onu ama kodla o kadar uğraştıktan sonra onuda yazayım dedim, çeşit olsun netekim.

 

[abkbek]

Sn.Taruz ve Seruz,
Çok teşekkür ederim. sabah uyanır uyanmaz çözüm var mıdır diye baktım ve cevaplarınızı gördüm çok sevindim. Emeğinize sağlık.
Sn.Seruz Allah bağışlasın kızınız çok tatlı maşallah,

Tüm ailenizle birlikte sağlıklı, mutlu ve huzurlu yıllar geçirmenizi dilerim.