Merhabalar
sayın"celalll"
belirttiğiniz geçerlilik kuralını uyguladım fakat ekteki word dosyasındaki hatayı aldım.
tabloda geçerlilik kuralını boş bıraktığımda 11 handen az veya tam 11 hanede Sayın "dszezgin" in verdiği kodlar çalışıyor.
ve 1 ESC ile boş alana geri dönebiliyorum ve alan yeni veri için hazır bekliyor.

Şayet 11 handen fazla karakter girilince Access uyarı kodları geliyor ve gelen 2 uyarı 2 kez ESC ile ilgili hücreye dönüyor ve 1 kez daha Esc ile veri alanı boşa dönüp yeni veri için hazır bekliyor.

Yapmak istediğim. uyumsuz veri girişinde ister yazılan kodla gelen uyarılar ister access yen gelen uyarılar hemen veya bir süre sonra ekrandan kapansın 
iyi çalışmalar

Merhabalar
Sayın "alperalper" , "dsezgin" , "celalll" in katkılarıyla kodları aşağıdaki şekilde değiştirip. çıkan uyarının 1 saniye sonra kapanmasını ve
yeni kayıt için boş alana dönmesi gerçekleşti.
Emeği geçen herkese Teşekkür ederim 
İyi çalışmalar

Private Sub tcno_BeforeUpdate(Cancel As Integer)

Dim Obj As Object
Set Obj = CreateObject("WScript.Shell")
If Len(Me.tcno) <> 11 Then
Obj.PopUp " YANLIŞ KART OKUTTUNUZ !", 1, "", vbOKOnly + vbExclamation
Cancel = True
            Me.Undo
Else
    If IsNull(Me.tcno.Column(1)) Then
Obj.PopUp " HATALI PERSONEL KAYIDI!", 1, "", vbOKOnly + vbExclamation
Cancel = True
            Me.Undo

    End If

End If
End Sub