25/01/2013, 01:16
metehan16
(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.