AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Ardışık Sıra No Verme

06/07/2018, 14:29

te-kin

merhabalar. yaptığım çalışmada elle girilen bir "sırano" alanı var. Normalde bu alana değer girerken elle ardışık olarak giriyorum. ancak aradan bir kayıt silinince bu ardışık sıra bozuluyor. Yanı aradan bir rakam siliniyor. Aca bir butona ekleyeceğimiz kodla bu alanı tekrar ardışık olarak sıralatabilir miyiz?
yardımlarınız için şimdiden teşekkürler. Örnek ektedir.
06/07/2018, 15:39

ozanakkaya

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
06/07/2018, 15:49

te-kin

teşekkürler ozanakkaya. tam istediğim gibi. sen muhteşemsin..