AccessTr.neT

Tam Versiyon: Ardışık Sıra No Verme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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
teşekkürler ozanakkaya. tam istediğim gibi. sen muhteşemsin.. +rep