Yanlış ama
Kod:
Dim KayitSayisi
KayitSayisi = DCount("Id", "pckasa")
DoCmd.GoToRecord , , acFirst
For i = 1 To KayitSayisi
Me.[Sıra No] = KayitSayisi + i
DoCmd.GoToRecord , , acNext
Next i
DoCmd.GoToRecord , , acFirst
For i = 1 To KayitSayisi
Me.[Sıra No] = i
DoCmd.GoToRecord , , acNext
Next i