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
evet hocam çalışıyor tşk deneme yanılma yöntemleriyle küçük değişiklik yaptım böylesi birazda kolay gibi.