Sayın hocalarım ;
SIPARIS_BEKLEYEN Formumda İŞ EMRİ tuşuna basınca iş emri oluşturuyor fakat kaç kez tıklarsam her tıklamada tekrar yeni kayıt gibi tabloya yazıyor ben burada bir kontrol yapmak istedim ama yapamadım yardımcı olursanız memnun oluru.

Saygılarımla,

Sayın yenginoglu,

Bahsettiğiniz talebiniz için aşağıdaki gibi bir mükerrer kayıt kontrolü yaptırmanız yeterli olacaktır.

'mükerrer kayıt kontrolü yapmak için

If DCount("URUN_KODU", "[ISEMRI]", "URUN_KODU='" & Me.URUN_KODU & "'") > 0 Then

    MsgBox ("Bu kayıt daha önce girilmiş." & vbCr & "Lütfen,tekrar deneyiniz."), vbCritical, "UYARI"

Else

    DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Ek’te,konuya yönelik uygulamanız üzerinden örnek çalışma mevcuttur.inceleyebilirsiniz.

İyi çalışmalar,
Saygılar.

Hocam ilgine çok teşekkür ederim.
Evet yapmak istediğim de buydu fakat hocam ben URUN_KODU na bağlı değil de SIP_NO ve SIPARIS_NO ile kontrolu sağlasın istiyorum çünkü aynı kodlu üründen tekrar sipariş gelebiliyor. Sipariş no ile yapmaya çalıştım fakat yapamadım tekrar yardımınızı isteyeceğim.

Saygılarımla,
Ahmet Yenginoğlu

Sayın yenginoglu,

Konuyu açarken belirttiğiniz soruna dair bahsettiğiniz durum incelendiğinde kullandığınız kriterin URUN_KODU üzerinden yapıldığı görülmüştür.ve bundan dolayı da sorununuzun çözümü için yapılan işlem de bu kritere göre değerlendirilerek hazırlanmıştır.
fakat şimdi yeni gelişme neticesinde durum tekrar değerlendirilmiş ve talebinize uygun yeni bir düzenleme yapılarak istenilen çözüm elde edilmiştir.Ek’te,bu yeni düzenlemeye göre yapılan örnek çalışma mevcuttur.inceleyebilirsiniz.

YAPILANLAR:

1) SIPARIS_BEKLEYEN formunuzda SIP_NO ve SIPARIS_NO adı altında bir alan söz konusu değildi. SIPARIS_BEKLEYEN sorgusu kaynak alınmaktaydı.bu sorguya SIPARIS_NO alanı eklendi.

2) SIPARIS_BEKLEYEN formuna SIPARIS_NO metin kutusu eklendi ve görünürlüğü gizli bırakıldı.

3) Bir önceki uygulamada kullanılan kodlama yeniden düzenlendi ve aşağıdaki duruma getirildi.

stLinkCriteria = "[SIP_NO]=" & "'" & Me.SIPARIS_NO & "'"

'yeni kodlama

'mükerrer kayıt kontrolü yapmak için

If DCount("SIP_NO", "[ISEMRI]", "SIP_NO=" & Me.SIPARIS_NO) > 0 Then

    MsgBox ("Bu kayıt daha önce girilmiş." & vbCr & "Lütfen,tekrar deneyiniz."), vbCritical, "UYARI"

Else

    DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

bilgilerinize,iyi çalışmalar,saygılar.

Sayın Hocam ellerinize sağlık konu çözülmüştür.
Süpersiniz.

+ rep verilmiştir.

Saygılarımla,
Ahmet Yenginoğlu

sayınm hocam elınıze saglık bır konuda yardım ıstıyorum yardımcı olursanız sevınırım özel dönermısınız .