Tc kımlık no gırılen alanda 11 karakter kontrolu

[kneehot]

Arkadslar cok soru sordum ama senet programını duzenlemeye celısıyorum. elimdekı hazır excelde asagı yazdıgım kod var ama 3 karakterde gırsenız kabul edıyor. bu kodu 11 karaktere gore ayarlamak ıstıyorum. kodu asagı ekledım. yarımlara tesekkurler.



Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next

Select Case KeyAscii
Case Asc("0") To Asc("9") ' TEXTBOX'A SAYISAL HARİCİNDE GİRİŞİ ÖNLER
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "TC KİMLİK NUMARASI !" & vbCrLf & "EN FAZLA 11 KARAKTER OLMALIDIR.", vbCritical
End Select

End Sub

 

[Hakan ERDOST]

TextBox click olayına (textboxu çift tılklayarak açılan kod penceresine) aşağıdaki kodu yazın.

Private Sub CommandButton1_Click() 
TextBox1.MaxLength = 11 
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodları kullanabilirsiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox3) <> 11 Then
        MsgBox "TC NO 11 karakter uzunluğunda olmalıdır!", vbCritical
        Cancel = True
    End If
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    On Error Resume Next
    Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
    KeyAscii = 0: MsgBox "Sadece sayısal değer girebilirsiniz!", vbCritical
    End Select
End Sub

Private Sub UserForm_Initialize()
    TextBox3.MaxLength = 11
End Sub

 

[muygun]

Yazılan Rakam T.C. mi?

Merhaba;
Alternatif:
Korhan Bey'in kodlarına ilaveten yazılan No'nun T.C. Nosu olup olmadığınında kontrolünü yapabilirsiniz.
İnceleyin.
İyi çalışmalar.