Dim rs As DAO.Recordset

Dim GSayi As Integer



GSayi = 1



Set rs = CurrentDb.OpenRecordset("SELECT * FROM T_EKDERS")

If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst

    Do Until rs.EOF = True

  

        rs.Edit

        rs!sirano = GSayi



        rs.Update 

        GSayi = GSayi + 1        

        rs.MoveNext

    Loop

End If

rs.Close

Set rs = Nothing



Me.Requery