
iyi günler. yaptığım çalışmada raporda bir sıralama yaptırmam gerekiyor. Kural: aynı isme sahip kayıtlardan sadece tc si olanlara birer sıra numarası verdirerek sıralama yaptırmak. yardımcı olursanız seviirim. çalışma ektedir.. şimdiden teşekkürler
Dim Sql As String
Dim rsg As Recordset
Dim GSayi As Integer
SQL = "SELECT personelno, tcno, ekdersno, sirano, ucretsira, rsira FROM T_EKDERS ORDER BY personelno, sirano, ucretsira;"
Set rsg = CurrentDb.OpenRecordset(SQL)
GSayi = 1
rsg.MoveFirst
Do Until rsg.EOF = True
rsg.Edit
If Len(rsg!tcno) > 0 Then
rsg!rsira = GSayi
GSayi = GSayi + 1
Else
rsg!rsira = Null
End If
rsg.Update
rsg.MoveNext
Loop