+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ardışık Sıra No Verme (/konu-ardisik-sira-no-verme.html)
Ardışık Sıra No Verme - te-kin - 06/07/2018
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.
Cvp: Ardışık Sıra No Verme - ozanakkaya - 06/07/2018
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.RequeryCvp: Ardışık Sıra No Verme - te-kin - 06/07/2018
teşekkürler ozanakkaya. tam istediğim gibi. sen muhteşemsin..
