If Dlookup ("[idnumuneadi]", "tbl_numadi", "[numuneadi]=" & "'" & Me.numuneadid & "'") > 0 Then 'Form_frm_numadi.numuneadi
If MsgBox("Aynı kayıt var Yinede Kaydetmek İstiyormusunuz", vbCritical + vbYesNo, "Kayıt Tekrarı") = vbNo Then
Me.Undo
'DoCmd.GoToRecord , , , Me.idnumuneadi
Else
End If
Else
End If
kodu aşağıdaki ile değiştirip "numuneadid" metin kutusundaki veriyi sorgulat.