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