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