Sorguyla puana göre sıra numarası vermek

Baska bir forumda bir arkadasımız sorgu kullanmadan vb ile kısa bir cozum buldu. kodu asagı ekliyorum. yardımlarından dolayı "omerceri" bey e tesekkurler...

Private Sub Komut0_Click()



say = 0

Dim ys As New ADODB.Recordset

Sec = "SELECT Table1.[SINIFI] FROM Table1 GROUP BY Table1.[SINIFI];"

ys.Open Sec, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

 son = ys.RecordCount

 ReDim aa(0 To son - 1)

Do While Not ys.EOF

aa(say) = ys("SINIFI")



ys.MoveNext

say = say + 1

Loop

ys.Close



For i = 0 To son - 1

sır = 0

Dim ys1 As New ADODB.Recordset

Sec = "SELECT Table1.[sıra], Table1.[SINIFI], Table1.[NOTU] FROM Table1 WHERE (((Table1.[SINIFI]) =" & aa(i) & ")) ORDER BY Table1.[NOTU] DESC;"

ys1.Open Sec, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

test = -8

Do While Not ys1.EOF

If test <> ys1("NOTU") Then

sır = sır + 1

Else

sır = sır

End If

test = ys1("NOTU")



ys1("sıra") = sır

ys1.Update



ys1.MoveNext



Loop

ys1.Close

Next



End Sub