form üzerinde benzer kayıt uyarısı

1 2
24/01/2013, 16:08

metehan16

merhaba arkadaşlar!

formum üzerinde aynı kayıdı ikinci defa girilmesini engellemek için
kaydın güncelleme sonrasına şöyle bir kod yazdım.

Private Sub numuneadid_AfterUpdate()
If numuneadi = Dlookup ("[numuneadi]", "tbl_numadi") Then 'Form_frm_numadi.numuneadi
If MsgBox("Aynı kayıt var Yinede Kaydetmek İstiyormusunuz", vbCritical + vbYesNo, "Kayıt Tekrarı") = vbNo Then
Me.Undo
Else
End If

güncelleme yaptığımda ilk kayıtta msj veriyor fakat sonraki kayıtların benzeerini girdiğimde msj vermiyor.
hocalarımın engin bilgi ve tecrübelerine dayanarak soruyorum
cvplar için şimdiden teşekkürler

dosya örneğide yüklüyorum
24/01/2013, 20:11

ozanakkaya

yeni kayıt ekleyip numuneadı kısmına şebeke yazdım, uyarı verdi. sonra tekrar yeni kayıt ekledim, yine şebeke yazdım, yine uyarı mesajı çıktı.
24/01/2013, 20:28

metehan16

(24/01/2013, 20:11)ozanakkaya yazdı: yeni kayıt ekleyip numuneadı kısmına şebeke yazdım, uyarı verdi. sonra tekrar yeni kayıt ekledim, yine şebeke yazdım, yine uyarı mesajı çıktı.



sayın ozanakkaya şebeke tablonun ilk kaydı onda msj veriyor fakat kuyu yazınca msj vermiyor. ben tablo numune adi kısmındaki bütün kayıtları arayıp benzeri varsa bana msj versin
24/01/2013, 20:51

ozanakkaya

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.GoToRecord , , , Me.idnumuneadi
Else
End If
Else
End If
24/01/2013, 21:36

metehan16

sayın ozanakkaya verdiğiniz kod işe yaradı


çok çok teşekkür ederimm
26/01/2013, 23:02

access_delisi

(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.GoToRecord , , , Me.idnumuneadi
Else
End If
Else
End If

tesekkurler, kodu uygulamamda kullandim
1 2