16/04/2013, 12:58
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