tabloya ekleme kontrolu yaptırma

1 2
04/08/2014, 18:31

yenginoglu

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,
04/08/2014, 19:48

atoz112

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.
05/08/2014, 10:00

yenginoglu

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
05/08/2014, 12:11

atoz112

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.
05/08/2014, 12:31

yenginoglu

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

+ rep verilmiştir.

Saygılarımla,
Ahmet Yenginoğlu
26/08/2014, 16:25

famous18

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 .
1 2