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