Skip to main content

AccessTr.neT


Ardışık Sıra No Verme

Ardışık Sıra No Verme

Çözüldü #1
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.
.rar Ornek.rar (Dosya Boyutu: 53,3 KB | İndirme Sayısı: 13)
Cevapla
#2
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
Cevapla
#3
teşekkürler ozanakkaya. tam istediğim gibi. sen muhteşemsin.. +rep
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da