Forma buton ekle, tıklandığında olayına aşağıdaki kodu yaz.
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE pckasa SET pckasa.[Sıra No] = DCount('[Id]','pckasa','[Id]<=' & [Id]);"
DoCmd.SetWarnings True
Me.List2.Requery
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE pckasa SET pckasa.[Sıra No] = DCount('[Id]','pckasa','[Id]<=' & [Id]);"
DoCmd.SetWarnings True
Me.List2.Requery