Dcount ile yapmıştım.Pcde duruyorsa ekleyeyim tekrar.
Bilgisayarda duruyormuş.
Öncedende yazmıştım yanlış anlamış olabilirim.
https://resim.accesstr.net/do.php?img=11169
Private Sub ISLEM_BeforeUpdate(Cancel As Integer)
If DCount("*", "SRGHESBANKODMBANKA", "[mtn_DONEMID] = " & mtn_DONEMID & " AND [mtn_hkart] = '" & mtn_hkart & "'") > 0 Then
MsgBox "Mükerrer", vbCritical, "Mükerrer"
Undo
End If
End Sub