+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tc kimlik ve otomatik tarih saat (/konu-tc-kimlik-ve-otomatik-tarih-saat.html)
Sayfalar:
1
2
tc kimlik ve otomatik tarih saat - furens - 13/01/2015
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?
Cvp: tc kimlik ve otomatik tarih saat - aydın3838 - 13/01/2015
selam
alttaki kodu kullanabilirsiniz
Kod:
Private Sub TC_KİMLİK_NO_AfterUpdate()
If TC_KİMLİK_NO <> 0 Then
TARİH = Date
SAAT = Time
End If
End SubCvp: tc kimlik ve otomatik tarih saat - atoz112 - 13/01/2015
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.
Cvp: tc kimlik ve otomatik tarih saat - ozanakkaya - 13/01/2015
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 Functionformdaki 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 IfCvp: tc kimlik ve otomatik tarih saat - yorum70 - 13/01/2015
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.
Cvp: tc kimlik ve otomatik tarih saat - furens - 13/01/2015
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.