mesela
If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then
kaydet = MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
, "Uyarı!!!"
If kaydet = vbNo Then Me.Undo' eğer cevap hayırsa iptal et
benzeri bir kontrol kodu eklenmeli