Skip to main content

AccessTr.neT


tc kimlik ve otomatik tarih saat

tc kimlik ve otomatik tarih saat

Çözüldü #1
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?
.rar Documents.rar (Dosya Boyutu: 49,7 KB | İndirme Sayısı: 21)
Cevapla
#2
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 Sub

aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#3
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
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
Cevapla
#5
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#6
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.
.zip 2A.zip (Dosya Boyutu: 56,24 KB | İndirme Sayısı: 11)
Son Düzenleme: 14/01/2015, 00:51, Düzenleyen: furens.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task