Arkadaşlar merhaba,

Aşağıdaki kod uygulamada kayıt esnasında mükerrer kaydı belirtiyor fakat kaydı yapmaya devam ediyor. Ben belirlenen mükerrer kayıtların "kayıt yapmaya devam etmek istiyor musunuz?" sorusunda hayır seçimimde kaydı iptal etmesi evet seçimimde kayda devam etmesini bir türlü yapamadım. Ve birde toplu kayıt esnasında her kayıt için uyarı ekranı çıkıyor. "KONTEYNER_NO" alanındaki tüm mükerrer kayıtları belirleyip HAYIR denmesi durumunda kaydı iptal EVET denmesi durumunda kaydı yapması mümkün müdür? Konu hakkında yardımcı olabilirseniz çok sevinirim. Şimdiden çok teşekkürler.



Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, MyForm.Name, False
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[KONTEYNER_NO].Value
stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "'"
If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
, "Uyarı!!!"
Exit Sub
Set rsc = Nothing
End If