(13/01/2015, 23:24)furens yazdı: 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.

Tc kimlik alanına ad soyad yazma olayını anlamadım ama örnek uygulamanızı düzenledim, inceleyip olumlu-olumsuz bildirimde bulununuz.

(13/01/2015, 22:11)yorum70 yazdı: 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.

Yazılan tc hatalı ise msgbox ile düzeltilip düzeltilmeme olayı soruluyor, eveti tıklarsanız tckimlik alanına geri döner, hayırı tıklarsan sonraki alana geçer.

Sn.OZANAKKAYA, son düzenlemenizi de indirdim.Güzel olmuş, teşekkür ediyorum.

evet hocam çalışıyor tşk deneme yanılma yöntemleriyle küçük değişiklik yaptım böylesi birazda kolay gibi.

Option Compare Database



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

Private Sub TC_KİMLİK_NO_Exit(Cancel As Integer)



Dim Mesaj As Integer





If IsNull(Me.TC_KİMLİK_NO) Or Me.TC_KİMLİK_NO = "" Then

Exit Sub

End If



If Len(TC_KİMLİK_NO) < 11 Then



   MsgBox ("TC Kimlik No 11 haneli olmalıdır")

   Else

  

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

End If

End Sub