[Yardım]  T.C Kimlik Numarası doğrulama

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

T.C Kimlik Numarası doğrulama

İleti#1)  Süleyman SAVAŞ » 03 Kas 2018 16:57

Merhaba arkadaşlar.
Ekte sunulan belgede kimlik numarası girişinde fake numara girişini engellemek için bir makro hazırlanmış. (Sanırım Nejdet Yeşertener hoca tarafından)
Bu makronun belgede userformdaki textbox ile çalışabilecek şekilde tekrar yorumlanmasını rica ediyorum. İlave olarak doğru veya yanlış girişte Label2 üzerinde mesaj gösterilmesin
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: T.C Kimlik Numarası doğrulama

İleti#2)  askmadige34 » 03 Kas 2018 17:50

Form altına ekleyin.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
If TCKimlikOnYazimKontrol(TextBox1.Text) = False Then
    Label2.Caption = "Hatalı TC"
Else
    Label2.Caption = "Doğru TC"
End If
End Sub

Private Sub TextBox1_Change()
Label2.Caption = Empty
End Sub

Private Sub UserForm_Click()
Label2.Caption = Empty
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: T.C Kimlik Numarası doğrulama

İleti#3)  feraz » 03 Kas 2018 18:11

Süleyman SAVAŞ yazdı:Merhaba arkadaşlar.
Ekte sunulan belgede kimlik numarası girişinde fake numara girişini engellemek için bir makro hazırlanmış. (Sanırım Nejdet Yeşertener hoca tarafından)
Bu makronun belgede userformdaki textbox ile çalışabilecek şekilde tekrar yorumlanmasını rica ediyorum. İlave olarak doğru veya yanlış girişte Label2 üzerinde mesaj gösterilmesin


Ekteki dosyanın çalışma mantığını bi türlü anlayamadım.
Biraz anlatabilir misiniz?
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5459
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: T.C Kimlik Numarası doğrulama

İleti#4)  Süleyman SAVAŞ » 03 Kas 2018 21:07

feraz yazdı:
Süleyman SAVAŞ yazdı:Merhaba arkadaşlar.
Ekte sunulan belgede kimlik numarası girişinde fake numara girişini engellemek için bir makro hazırlanmış. (Sanırım Nejdet Yeşertener hoca tarafından)
Bu makronun belgede userformdaki textbox ile çalışabilecek şekilde tekrar yorumlanmasını rica ediyorum. İlave olarak doğru veya yanlış girişte Label2 üzerinde mesaj gösterilmesin


Ekteki dosyanın çalışma mantığını bi türlü anlayamadım.
Biraz anlatabilir misiniz?

Algoritmanın nasıl çalıştığı hakkında benimde bir fikrim yok, ancak netteki paylaşımlardan bir örnek.
https://www.webtekno.com/internet/t-c-k ... 16720.html
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: T.C Kimlik Numarası doğrulama

İleti#5)  Süleyman SAVAŞ » 03 Kas 2018 21:17

askmadige34 yazdı:Form altına ekleyin.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
If TCKimlikOnYazimKontrol(TextBox1.Text) = False Then
    Label2.Caption = "Hatalı TC"
Else
    Label2.Caption = "Doğru TC"
End If
End Sub

Private Sub TextBox1_Change()
Label2.Caption = Empty
End Sub

Private Sub UserForm_Click()
Label2.Caption = Empty
End Sub

Üstat teşekkür ederim.
Kod kendi özelinde sorunsuz çalışıyor.
Kodu Tarkan hocanın yazdığı ve en son feraz ustanın derlediği aşağıdaki fonksiyona entegre etmeye çalışıyorum. Bir kaç saattir bir arpa boyu yol alamadım.
Kod: Tümünü seç
Private Sub cmdKaydet_Click()
If txtAdi.Text = "" Then
txtAdi.SetFocus
MsgBox ("Lütfen Adı - Soyad Bilgisi Girin..."), vbInformation, "Süleyman SAVAŞ"
Exit Sub
End If


If Me.txtTCKimlik <> "" Then
    If TCNumarasiKayitliMi(txtTCKimlik.Value, 0) = True Then Exit Sub
End If
..
..
..


Burada txtKimlik dolu ise mükerrerlik kontrolü yapılıyor, boş ise kayıt yapmaya devam ediyor. Mükerrerlik kontrolü ile beraber modül3 teki kodun yaptığı kontrolüde yaptırabilirmisiniz?

Kod: Tümünü seç
Function TCNumarasiKayitliMi(ByVal TcNo As String, ByVal idx As Integer) As Boolean
    Call BAGLANTI
    Set rs = CreateObject("adodb.recordset")
   
            If idx = 0 Then '*****************
                rs.Open "select Count(*)as SAY from REHBER where TC_KIMLIK ='" & txtTCKimlik & "' ", baglan, 1, 1
            ElseIf idx > 0 Then
                rs.Open "select Count(*)as SAY from REHBER where TC_KIMLIK ='" & txtTCKimlik & "'  AND KIMLIK<>" & idx, baglan, 1, 1
            End If '*****************
        If rs("SAY").Value > 0 Then '/////////////////////
            TCNumarasiKayitliMi = True
            MsgBox txtTCKimlik & vbLf & vbLf & "Bu TC numarası ile daha önce başka bir kayıt girilmiş. " & _
                "Lütfen kontrol ediniz. ", vbExclamation, "Www.ExcelVBA.Net"
        Else
            TCNumarasiKayitliMi = False
        End If '///////////////////////////////////////////
 

End Function
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: T.C Kimlik Numarası doğrulama

İleti#6)  askmadige34 » 03 Kas 2018 23:17

Sorunuzu anlamadım. Örnek dosyanızı eklerseniz yardımcı olmaya çalışayım.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: T.C Kimlik Numarası doğrulama

İleti#7)  Süleyman SAVAŞ » 03 Kas 2018 23:47

askmadige34 yazdı:Sorunuzu anlamadım. Örnek dosyanızı eklerseniz yardımcı olmaya çalışayım.

Biraz karmaşık oldu haklısınız.
Sorunu çözümünde aşağıdaki şekli ile biraz ilerledim.
Takıldığım nokta:
Eksik veya hatalı T.C Kimlik Numarası mesajından sonra txtTCKimlik.setfocus un çalışmaması.
Bu mesajdan sonra txtTCKimlik boşaltılarak imlecin txtTCKimlik içerisinde kalması sağlanmalı.

Kod: Tümünü seç
Private Sub txtTCKimlik_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If txtTCKimlik.Text = "" Then
GoTo son
End If

If Len(txtTCKimlik) < 11 Then
MsgBox "Eksik Rakam Girişi !" & vbCrLf & "En az 11 rakam girmelisiniz.", vbCritical
Cancel = True

ElseIf Len(txtTCKimlik) > 11 Then
MsgBox "Fazla rakam girişi !" & vbCrLf & "En fazla 11 rakam girebilirsiniz.", vbCritical
Cancel = True

Else
Cancel = False
End If

If TCKimlikOnYazimKontrol(txtTCKimlik.Text) = False Then
MsgBox "Eksik veya hatalı T.C Kimlik Numarası", vbInformation, "Süleyman Savaş"
txtTCKimlik.SetFocus
Exit Sub
Else
MsgBox "T.C Kimlik Doğrulandı", vbInformation, "Süleyman Savaş"

End If

son:
Set kayit = Nothing

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: T.C Kimlik Numarası doğrulama

İleti#8)  askmadige34 » 04 Kas 2018 00:05

Bilgisayarımda Office 2016 64 bit olduğu için bazı uygulamalar çalışmıyor malesef. Listview vb. O yuzden formu açamıyorum. Başka bir kişi yardımcı olacaktır.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: T.C Kimlik Numarası doğrulama

İleti#9)  Enes Recep BAĞ » 04 Kas 2018 01:18

Kodları exit olayına değilde change olayına taşımayı deneyin.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: T.C Kimlik Numarası doğrulama

İleti#10)  feraz » 04 Kas 2018 03:26

Function TCNumarasiKayitliMi(ByVal TcNo As String, ByVal idx As Integer) As Boolean
Call BAGLANTI
Set rs = CreateObject("adodb.recordset")

If idx = 0 Then '*****************
rs.Open "select Count(*)as SAY from REHBER where TC_KIMLIK ='" & txtTCKimlik & "' ", baglan, 1, 1
ElseIf idx > 0 Then
rs.Open "select Count(*)as SAY from REHBER where TC_KIMLIK ='" & txtTCKimlik & "' AND KIMLIK<>" & idx, baglan, 1, 1
End If '*****************
If rs("SAY").Value > 0 Then '/////////////////////
TCNumarasiKayitliMi = True
MsgBox txtTCKimlik & vbLf & vbLf & "Bu TC numarasý ile daha önce baþka bir kayýt girilmiþ. " & _
"Lütfen kontrol ediniz. ", vbExclamation, "Www.ExcelVBA.Net"
txtTCKimlik.Text = ""
Me.txtTCKimlik.SetFocus
Else
TCNumarasiKayitliMi = False
End If '///////////////////////////////////////////


End Function
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5459
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Cevap: T.C Kimlik Numarası doğrulama

İleti#11)  feraz » 04 Kas 2018 05:20

Süleyman SAVAŞ yazdı:
feraz yazdı:
Süleyman SAVAŞ yazdı:Merhaba arkadaşlar.
Ekte sunulan belgede kimlik numarası girişinde fake numara girişini engellemek için bir makro hazırlanmış. (Sanırım Nejdet Yeşertener hoca tarafından)
Bu makronun belgede userformdaki textbox ile çalışabilecek şekilde tekrar yorumlanmasını rica ediyorum. İlave olarak doğru veya yanlış girişte Label2 üzerinde mesaj gösterilmesin


Ekteki dosyanın çalışma mantığını bi türlü anlayamadım.
Biraz anlatabilir misiniz?

Algoritmanın nasıl çalıştığı hakkında benimde bir fikrim yok, ancak netteki paylaşımlardan bir örnek.
https://www.webtekno.com/internet/t-c-k ... 16720.html


Burdaki anlatılanları kendi Kimlik Numaramda denedim ve doğruymuş :shock:
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5459
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: T.C Kimlik Numarası doğrulama

İleti#12)  Ozan İLGÜN » 04 Kas 2018 18:59

Bu konuda benim de bir çalışmam var. İlgilenirseniz viewtopic.php?f=138&t=21403
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2633
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: T.C Kimlik Numarası doğrulama

İleti#13)  Süleyman SAVAŞ » 05 Kas 2018 00:17

Ozan İLGÜN yazdı:Bu konuda benim de bir çalışmam var. İlgilenirseniz viewtopic.php?f=138&t=21403

Teşekkürler üstat.
Konunuz VB.Net, C Sharp bölümünde açıldığı için denk gelmemişiz [ilginc]
Rica etsek çalışmanızı userform üzerinde çalışır bir örnekle yenileyebilirmisiniz, ayrıca konunuzun devamında sanırım T.C Kimlik Numaralarının mernis ile iletişimine atıfta bulunmuşsunuz. Aradan geçen zamanda e-devlet portalındaki güncelleştirmeler sonucu bazı işlemler artık çalışmaz olmuş.Eğer hala böyle bir imkan varsa kodlarda da güncelleme yapmanın zamanı gelmiştir diye düşünüyorum.
Projemin ilerleyen zamanlarında webden sorgu yapması ve/veya kimlik numarasını girince bazı verilerin mernisten alınması gibi bazı taleplerim olacaktı. Şimdiden hazırlık yapmak gerekli hale geldi. [evet]
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: T.C Kimlik Numarası doğrulama

İleti#14)  Ozan İLGÜN » 07 Kas 2018 13:43

ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2633
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul




Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe