Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
18/10/2012 22:22
Konu Sahibi
yorum70
Yorumlar
3
Okunma
1488
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Merhaba.

FRMDATA'da olayı girip Şahıs Ekle komutu ile FRMKISILER formu açılıyor.

Uyruğu seçip TCNO girildiği zaman eğer şahıs daha önce başka bir suçla alakalı girildiği için otomatık geliyor(EVET KOMUTU İLE). Önce girilen şahıs otomatık gelirken ŞAHISIN DEĞİŞME İHTİMALİ OLAN BİLGİLERİ boş geliyor (DURUMU-MEDENİ HALİ-MESLEĞİ)

Yapılmak istenen: İlk girilen şahıs bilgilerinde DEĞİŞMEYEN ŞAHSİ bilgilerinde eksiklik var ve bu bilgiler ikinci geldiğinde tarafımızca giriliyorsa...KAYDET komutu ile aynı bilgiler, ilk olayda ki boş alan bilgilerine eklensin...Umarım anlatabil mişimdir.

değişen alanlar= DURUMU-MEDENİ HALİ-MESLEĞİ(Bunların her seferinde tarafımızca girilmesi gerekiyor)
DEĞİŞMEYEN ALANLAR= ADISOYADI-ANABABAADI-D.TARIHI-N.KAYITLI OLDUĞU İL-ilçe-



"Her tercih, bir vazgeçiştir"


ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
Çözüldü 
Kodda hata vardı. tc yazınca önceki eklenen kayda ait veriyi getirmiyordu.

Tckimlikno yazılan metin kusutusunun çıkıldığında olanıdaki kodu aşağıdaki ile değiştirince çalıştı.

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
Me.Liste21.Requery
Dim mukerrer As String
mukerrer = Nz(DCount("[ADISOYADI]", "TBLKISILER", "[TCNO]=" & [TCNO]), 0)
  If mukerrer > 0 Then
  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
     Me.ADISOYADI.Value = DLookup("[ADISOYADI]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.DOGUMYERI.Value = DLookup("[DOGUMYERI]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.DOGUMTARIHI.Value = DLookup("[DOGUMTARIHI]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.NUFKYTIL.Value = DLookup("[NUFKYTIL]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.NUFKYTILCE.Value = DLookup("[NUFKYTILCE]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.NUFKYTMAH.Value = DLookup("[NUFKYTMAH]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.MEDENIHAL.Value = DLookup("[MEDENIHAL]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.EGITIMDURUMU.Value = DLookup("[EGITIMDURUMU]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.TELEFON.Value = DLookup("[TELEFON]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.EMAİL.Value = DLookup("[EMAİL]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.ADRES.Value = DLookup("[ADRES]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.Liste21.Requery

   Case vbNo
    Undo
    Me.Liste21.Requery

    Exit Sub
End Select
   Else
 
   End If


Kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştirince;

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
On Error GoTo Err_Komut65_Click

Dim strSQL As String
Set rstkayit = New ADODB.Recordset
strSQL = "SELECT * FROM TBLKISILER "
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
        .Find "[TCNO]=" & "'" & Me![TCNO] & "'"
            If Not rstkayit.EOF Then
                .Fields("ADISOYADI") = Me.ADISOYADI
                .Fields("BABAANAADI") = Me.BABAANAADI
                .Fields("DOGUMTARIHI") = Me.DOGUMTARIHI
                .Fields("NUFKYTIL") = Me.NUFKYTIL
                .Fields("NUFKYTILCE") = Me.NUFKYTILCE
                .Fields("NUFKYTMAH") = Me.NUFKYTMAH
                .Update
             End If
        End With
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.Liste21.Requery
Exit_Komut65_Click:
    Exit Sub

Err_Komut65_Click:
    MsgBox Err.Description
    Resume Exit_Komut65_Click


12345678916 tc kimlik numarası girilip mesaj kutusuna eveti tıkladığında boş alanların bazılara veriler aktarılıyor. Boş kalan yerleri doldurduğunda 12345678916 tc kimlik numarası girilmiş önceki kayıttaki boşluklar tamamlanıyor.

Ayrıca Microsoft Activex Data Object X.X referansı eklendi.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
accessman

accessman

Aktif Üye
99
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
teeeşekkürler ozanakkaya


@benbendedeilem

yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Sn.Ozanakkaya ilginize teşekkür ediyorum.

Kodları ekledim, ancak Kaydet, çıkıldığında ve exıt komutlarında direk kod sayfasına atıyor..End If, End Sub'la alakalaı bir sorun var sanırım, çözemedim.
Konu saadete erişmiştir.Teşekkür ediyorum.



"Her tercih, bir vazgeçiştir"


...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 298 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Access'te Otomatik Sayı Kontrolü dgnlrmehmet 3 218 26/04/2019, 12:17
Son Yorum: dgnlrmehmet
Çözüldü Aynı Tabloda İkitane Otomatik Sayı Alanı Verme respectful 13 838 22/04/2019, 23:36
Son Yorum: halily
Çözüldü Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi mmert06 2 522 19/04/2019, 22:50
Son Yorum: mmert06
Çözüldü Otomatik sayı yıllara göre vermesi Fatih34 16 915 06/04/2019, 22:34
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.