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..