(24/01/2013, 20:51)ozanakkaya yazdı: kodu aşağıdaki ile değiştirip "numuneadid" metin kutusundaki veriyi sorgulat.

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.goto....*burada yukarıda eşit olan kayda gitsin istiyorum

 Else

 End If

Else

End If

iyi geceler sayın arkadaşlar
yukarıdaki kodla bir kayıtla benzer kayıt varsa uyarı verme işini ozanhocam çözdü.

şimdi ise msj vbno dediğimde benzer kayda gitsin istiyorum.

bende fazla oluyorum ama kusuruma bakmayacağınızı umuyorum
teşekkür ediyorum.

umarım talebinize uygun olmuştur.

(25/01/2013, 16:07)QATLET yazdı: umarım talebinize uygun olmuştur.

sayın qatlet ilginize teşekkürler bu benim düşündüğümden biraz farklı olmuş ,
benim istediğim msj a no dediğimde açık formda benzer olan kayda gidebilirmiyim??

arkadaşlar konuyu çözüme ulaştırdım.
ufuk hocama ve accesstr ailesine sonsuz teşekkürler

çözülm örnekteki gibidir.

konu çözülmüştür.