Arkadaşlar kolay gelsin ekteki Excel dosyasında TC kimlik no yu girdiğimde hem tc nin hatalı olması durumunda uyarı veriyor hemde tarih ve saati otomatik kaydediyor. bu uygulamayı ekteki Access dosyasına uygulamaya çalıştım başaramadım yardımcı olabilirmisiniz?

selam
alttaki kodu kullanabilirsiniz

sayın furens,

öncelikle bir hususu belirtmekte fayda var kanısındayım.

Excel uygulamanız çalıştırılıp kodlar incelendiğinde;T.C. numarasının bulunduğu sütun üzerindeki herhangi bir hücreye 0 veya harf veya ondalıklı bir sayı yazıldığı takdirde bahsettiğiniz gibi bir hata verme durumu söz konusu olmamaktadır.ancak,sadece;her ne yazılıp hücreden çıkıldığı takdirde tarih ve saat bilgileri kendi ilgili hücrelere yazılması sağlanılmaktadır.bu nedenle,ilgili kontrol mekanizmasının tekrar gözden geçirilmesine ya da site içerisinde veya internet ortamında araştırmalarda bulunmak sureti ile konu hakkında bilgiler tedarik etmekte fayda olduğu gözlenmektedir.eğer ki amacınız T.C.numarasına göre geçerli ve verimli bir kontrol yapılması sağlamak ise.

Fakat,eğer gerek Excel ve gerekse de Access uygulamalarınızda amacınız sadece bu ilgili T.C. numarası alanına her ne içerikte bir bilgi girişi olmasını ve bu bilgi girişine göre de tarih ve saat bilgilerinin yazılmasını sağlamak ise;o zaman,sayın aydın3838 bey’in yazdıkları alternatif örnek kalıbı kullanarak bu sonucu elde edebilirsiniz.bilginize.

İyi çalışmalar,
Saygılar.

Aşağıdaki kodu modüle ekle,

Function TCKimlikNoYazimKontrol(tcid) As Boolean





Dim D(1 To 11) As Integer

    For N = 1 To 11

D(N) = Mid(tcid, N, 1)

    Next

    top1 = D(1) + D(3) + D(5) + D(7) + D(9)

    top2 = D(2) + D(4) + D(6) + D(8)

    

    cd1 = (10 - (((3 * top1) + top2) Mod 10)) Mod 10

    cd2 = (10 - (((3 * (top2 + cd1)) + top1) Mod 10)) Mod 10

    If cd1 = D(10) And cd2 = D(11) Then

        TCKimlikNoYazimKontrol = True

        Else

        TCKimlikNoYazimKontrol = False

End If

End Function

formdaki tc kimlik numarası yazılan metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

If TCKimlikNoYazimKontrol(TC_KİMLİK_NO.Value) = False Then



 MsgBox "Yazdığınız " & [TC_KİMLİK_NO] & " Hatalı TC Kimlik No " & Chr(10) & " Lütfen Kontrol Ediniz.", 48, "TC KİMLİK NO HATALI"

End If

Döngüye uymadığı zaman hatalı TC olduğunu ikaz ediyor.Ancak, yazılan numara aynen bırakılıp bir alta geçilebiliyor.Kullanıcıyı doğru girişe zorlamalıyız,VbYesNo yu nasıl ve nereye eklememiz gerekir.

Tşk.

ilgin için tşk.excel deki tc bölümünde sorun yok.halen kullanmaktayız. orijinal 11 haneli olması gerekiyordu biz bazan isimde girdiğimiz için hata vermesin diye sınırlamayı kaldırdık. 11 haneli tc kimik numaranızı yazarsanız hata vermiyecektir.ancak 11 haneli bi tc olmayan numara yazarsanız hata uyarısı alırsınız.
Biz tc kısmını accestede uygulamak istedik ancak başaramadık.(hem tarih saat hemde hatalı tc. tşk iyi geceler

---

ilgin için tşk. bu tc formülü 11 haneyle kısıtlı idi bazen bu bölüme isim girmek zorunda kalıyoruz onun için 11 hane olayını kaldırdık. 11 haneli bir rakam girdiğinizde tc kimlik numarası ise hata vermiyor tc kimlik değilse harta veriyor.kps den denedik ayrıca 2 yıldır kullanıyoruz 1000 de bir bazı tc leri hatalı diyor.onda bir sorun yok.

---

hocam tşk ama kodların hiçbirisdini çalıştıramadım acemilik işte.  access ekine kodları uygulayabilirmisiniz. tari ve saat formülünüde şimdiden tşk.

---

ilginiz ve alakanız için tşk. hem otomatik tarih ve saat hemde hatalı tc kodlarını acemi olduğum için uygulayamadım.ilk gönderdiğim accesste bağlantı hatası varmış onu düzelttim.ancak kodları uygulayamadım tekrar göndersem kodları uygulayabilirmisiniz bende inceleyerek öğrenmiş olurum.