Sıra no alanınızın varsayılan değerini boş yapınız side 0 olarak ayrlanmış

sonra srg_sayi surgunuza sıra no alanını ekleyiniz

Formdaki sıra no alanının adını Sirano olarak değiştirdim (Alan adlarında boşluk ve türkçe karakter kullanmamaya özen gösteriniz)

sonra

Private Sub Salon_AfterUpdate()

 DoCmd.RunCommand acCmdRefresh

If IsNull(Me.Sirano) = True Then

Me.Sirano = DCount("[Sıra No]", "srg_sayi") + 1

Else

End If

End Sub

Kolay gelsin