hem kod numarasına hemde malzeme ismine gore mukerrer kayıt kontrolu yapmak ıstıyorum ama ılgılı kodu nereye yazacagım

If DCount("kod", "stok listesi", "kod= #" & [kod] & "# and malzeme ismi=" & [malzeme ismi] & "") > 0 Then MsgBox "Kontrolden geçemez"
End Sub

Public Sub kontrol()
Dim kod As String
If DCount("kod", "stoklistesi", "kod= #" & kod & "# and malzeme ismi='" & [malzeme ismi] & "'") > 0 Then
MsgBox "Aynı kayıtttan var!", vbOKOnly + vbInformation
Cancel = True
Me.Undo
End If
End Sub

ayrıca mevcut kaydı oldugu konumu nasıl gosterecegımı bulamadım

---

kaydet butonuna basıldıgında mı yoksa guncellestırıldıgınde mı nereye yazacagım artı kodta bır yanlıslık var mı yorumlarsanız sevınırım