Aynı Veriler Girildiğinde,verinin Gelmesi.

İyi Akşamlar.

Evrak_Kayit Formunda daha önceden girilen verinin tekrar gelmesi, kullanıcı isterse veriyi çağırıp kontrol etmesi, eğer isterse çağrılan veriden devam ederek kayıt etmesi(Yeni Kayıt Vermesi) istemezse çağrılan kayıdı görüp gerekli bilgileri not edip kayıt etmeden çıkması için ;

savno-İlçeNo ve Adısoyadı alanlarına aynı veri giildiğinde gelmesini istiyoum.

Örnek olarak SAVNO alanının çıkıldığında olayına kod yazdım, ama nedendir anlamadım olmadı.Bunun gibi diğer iki alandada aynı uyarıyı vermesini istiyorum.

TABLO: evrakkayit.
FORM:Evrak_Kayit

Mevzudan anladığım kadarıyla sadece savno alanını düzenledim.

Alıntı:önceden girilen verinin tekrar gelmesi, kullanıcı isterse veriyi çağırıp kontrol etmesi, eğer isterse çağrılan veriden devam ederek kayıt etmesi(Yeni Kayıt Vermesi) istemezse çağrılan kayıdı görüp gerekli bilgileri not edip kayıt etmeden çıkması için

1-)önceden girilen verinin tekrar gelmesi, kullanıcı isterse veriyi çağırıp kontrol etmesi savno daha önce girilmişse msgbox açılıyor, eveti tıklarsan yeni mesaj kutusu açılıyor.
2-)eğer isterse çağrılan veriden devam ederek kayıt etmesi(Yeni Kayıt Vermesi)
Yeni mesaj kutusu açıldığında evet'i tıklarsan daha önce savno alanına kadar girdiğin veri kaydedilir, daha önce girilen savno verisine ait kayda gidilir. Hayır'ı tıklarsan, savno alanına kadar girdiğin veri silinir, önce girilen savno verisine ait kayda gidilir.
3-)istemezse çağrılan kayıdı görüp gerekli bilgileri not edip kayıt etmeden çıkması için
bu istemezse mevzusu yukarıda anlattığım 2. msgbox, yeni kayıt istemezse hayırı tıklar, yeni kayıt silinir, eveti tıklarsa yeni kayıt durur.

Me.Liste1.Requery

Dim GeciciEvrakNo As String

Dim mukerrer As String

mukerrer = Nz(DCount("[savno]", "evrakkayit", "[savno]=" & "'" & [savno] & "'"), 0)

  If mukerrer > 0 Then

GeciciEvrakNo = Me.evrakno

  Select Case MsgBox("Bu Kayıt Daha Önce Girilmiş. Devam Ederek Diğer Bilgilerini Getirebilirsiniz. Devam Edilsin mi?", vbYesNo Or vbQuestion Or vbSystemModal Or vbDefaultButton1, "Ne Yapmak İstiyorsunuz.")

    Case vbYes

            Set rs = Me.RecordsetClone

            rs.FindFirst "[savno] = " & "'" & Me.savno & "'"

            If rs.NoMatch Then

            MsgBox "Kayıt Yok"

            Else

            Me.Bookmark = rs.Bookmark

            End If

            Set rs = Nothing

            

           If MsgBox("Önceden kaydedilen " & GeciciEvrakNo & " sayılı kayıt silinsin mi?", vbYesNo) = vbOK Then

                DoCmd.SetWarnings False

                DoCmd.RunSQL "DELETE evrakno FROM evrakkayit WHERE (((evrakno)='" & GeciciEvrakNo & "'));"

                DoCmd.SetWarnings True

                Me.Liste1.Requery

                Metin455.Requery

            Else

                Me.Liste1.Requery

                Metin455.Requery

            End If

   Case vbNo

    Undo

    Me.Liste1.Requery

    Exit Sub

End Select

   Else

   End If

sn.Ozanakkaya, tam istediğim gibi olmuş teşekkür ediyorum.Aynı kodla adisoyadi ve ilceno alanlarını kullanmayı düşünüyorum.

Burada sonadan aklıma gelen husus, hadi savno ve ilçeno tektir(2012/1234 gibi) ama adisoyadi alanında aynı şahıstan 1 den fazla önceki kayıt varsa ne yapacağımz ? Cazip bir tekliflere açığım.

Aynı Veriler Girildiğinde,verinin Gelmesi.

yorum70

ozanakkaya

yorum70