Sayın.haliliyas Hocam 

Eline Koluna Sağlık Süper Olmuş Çok Teşekkür Ederim
Eğer Zahmet olmayacaksa size değeri mesaj kutusuna doğrudan girmesini sağlaya bilirseniz daha iyi olur bizim için

Ama olmazsa da canınız sağolsun
Çok Teşekkür ederim Elleriniz ve Emeğinize Sağlık 

sayın @golf2000, Ahmet ve can veritabanlarında yer alan "ekleme sonrası" olayındaki

Private Sub Form_AfterInsert()

If IsNull(DMax("S_No", "tbl_Bırlastır", "kod='" & Me.Kod & "'")) And IsNull(Me.S_No) Then

        S_No = InputBox("Lütfen S_No başlangıç sayısını giriniz")

        Me.S_No.Locked = False

        Me.S_No.SetFocus

        Else

        Me.S_No = Nz(DMax("S_No", "tbl_Bırlastır", "Kod='" & Me.Kod & "'"), 0) + 1

    End If

End Sub

 kodu, aşağıdaki şekilde değiştirin 

Private Sub Form_AfterInsert()

If IsNull(DMax("S_No", "tbl_Bırlastır", "kod='" & Me.Kod & "'")) And IsNull(Me.S_No) Then

10

    Me.S_No = InputBox("Lütfen S_No giriniz")

    If IsNull(Me.S_No) Then GoTo 10

    Else

        Me.S_No = Nz(DMax("S_No", "tbl_Bırlastır", "Kod='" & Me.Kod & "'"), 0) + 1

    End If

End Sub

Sayın.haliliyas Hocam 


şimdi oldu hocam

Tekrar Tekrar Eline Koluna Sağlık Süper Olmuş Çok Teşekkür Ederim
Emeğinize Sağlık 

sayın golf2000 ufak bir hata yapmışım S_no sayısal değer aldığından inputbox a harf girip onaylayınca hata veriyor
kodları aşağıdaki ile değiştirir misiniz?
not: tablo adında küçük " ı " harfi kullanmışsınız , Türkçe karakterler bazen  sorun çıkarabildiğinden küçük " i " kullanmanızı öneririm

Private Sub Form_AfterInsert()

If IsNull(DMax("S_No", "tbl_Bırlastır", "kod='" & Me.Kod & "'")) And IsNull(Me.S_No) Then

10

    S_Nodene = InputBox("Lütfen SAYISAL S_No giriniz!" )

    If IsNull(S_Nodene) Or Not IsNumeric(S_Nodene) Then GoTo 10

    If Not IsNull(S_Nodene) And IsNumeric(S_Nodene) Then Me.S_No = S_Nodene

    Else

        Me.S_No = Nz(DMax("S_No", "tbl_Bırlastır", "Kod='" & Me.Kod & "'"), 0) + 1

    End If

End Sub

Sayın.haliliyas Hocam 

Çok Teşekkür Ederim Sağolun Değiştirdirm
Emeğinize Sağlık

Sayın.haliliyas Hocam

Aynı Access veritabanı içerisinde iki farklı form açtım
Birinci formda Kod bölümü "A"
İkinci formda da Kod  bölümü "B"

Vermiş olduğunuz kodu her iki form da da uyguladım çalıştı
Fakat A formunda ilk kayıt yaparken kayıt bitiminde ilk S_No soruyor ilk S_No giriyorum
Ondan sonra takip eden S_No vererek kayıt yapiyor 
İkinci formdan kayıt yaptigimda Kod alanına "B" tanimladigimda ilk kayıt bitiyor
İkinci kayıta gectigimde ilk S_No soruyor 

Teşekkürler