form üzerinde benzer kayıt uyarısı

form üzerinde benzer kayıt uyarısı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: form üzerinde benzer kayıt uyarısı (/konu-form-uzerinde-benzer-kayit-uyarisi.html)

Sayfalar: 1 2

form üzerinde benzer kayıt uyarısı - metehan16 - 24/01/2013

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

Cvp: form üzerinde benzer kayıt uyarısı - ozanakkaya - 24/01/2013

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ı.

Cvp: form üzerinde benzer kayıt uyarısı - metehan16 - 24/01/2013

(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

Cvp: form üzerinde benzer kayıt uyarısı - ozanakkaya - 24/01/2013

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

Cvp: form üzerinde benzer kayıt uyarısı - metehan16 - 24/01/2013

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

çok çok teşekkür ederimm

Cvp: form üzerinde benzer kayıt uyarısı - access_delisi - 26/01/2013

(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