Aynı Veriler Girildiğinde,verinin Gelmesi.
Tarih
19/12/2012 19:33
Konu Sahibi
yorum70
Yorumlar
2
Okunma
1083
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
İ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


Ek Dosyalar
.rar   18aralıkevrak.rar (Dosya Boyutu: 196,41 KB / İndirme Sayısı: 10)
"Her tercih, bir vazgeçiştir"

Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.059
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:34
Çözüldü 
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.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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



Ek Dosyalar
.rar   18aralıkevrak_dnm.rar (Dosya Boyutu: 180,4 KB / İndirme Sayısı: 21)
Cevapla


yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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.
"Her tercih, bir vazgeçiştir"

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Sorguda aynı kaydın birden çok listelenmesi atyaty 6 140 01/12/2016, 11:17 atoz112
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 234 29/11/2016, 13:49 Mesut Kaytan
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 160 27/11/2016, 13:36 53rize
  Bugünki Tarihden önceki veriler 53rize 8 137 27/11/2016, 13:18 53rize
  Aynı Ürün Koduna ait kaydın son alanındaki değeri,yeni kayıtta ilk alanına yazdırmak yenginoglu 2 63 23/11/2016, 08:49 yenginoglu


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya