aşağıdaki kodu dener misiniz?

Private Sub Form_BeforeUpdate(Cancel As Integer)

x = DCount("*", "askerler3", "[adi]='" & Me.adi & "' and [Tufek_Seri_No]=" & Me.Tufek_Seri_No)

If x > 0 Then Sonuc = MsgBox("Mükerrer Kayıt! Yine de eklemek istiyor musunuz?", vbQuestion + vbYesNo + vbDefaultButton2, "Mükerrer Kayıt Uyarısı")

If Sonuc = vbNo Then Undo

End Sub