Küçük Harf Kontrolü

[Tarikkk_]

Merhabalar. TextBox1 de Boşmu kontrolü yaptığımız gibi Küçük harf ise yine exit sub yapmasını istiyorum. harflerin küçük olduğunu anlayabileceğimiz bir kod veya ifade varsa yardımlarınızı bekliyorum şimdiden teşekkür ederim

AD = TextBox1

        If AD = "" Then
             HataMesajı "VERİ GİRİNİZ VEYA TÜMÜNÜ SEÇİNİZ..."
            Exit Sub
        End If

 

[Korhan Ayhan]

Aşağıdaki yöntemleri deneyiniz.

1-)

Private Sub CommandButton1_Click()
    If TextBox1 <> UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) Then
        MsgBox "Küçük harf tespit edildi!", vbCritical
        Exit Sub
    End If
End Sub

2-)

Private Sub CommandButton1_Click()
    If TextBox1 Like "*[a-zçğiöşü]*" Then
        MsgBox "Küçük harf tespit edildi!", vbCritical
        Exit Sub
    End If
End Sub

3-)

Private Sub CommandButton1_Click()
    If Not Application.Evaluate("EXACT(""" & TextBox1 & """, """ & UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) & """)") Then
        MsgBox "Küçük harf tespit edildi!", vbCritical
        Exit Sub
    End If
End Sub

 

[Tarikkk_]

Aşağıdaki yöntemleri deneyiniz.

1-)

Private Sub CommandButton1_Click()
    If TextBox1 <> UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) Then
        MsgBox "Küçük harf tespit edildi!", vbCritical
        Exit Sub
    End If
End Sub

2-)

Private Sub CommandButton1_Click()
    If TextBox1 Like "*[a-zçğiöşü]*" Then
        MsgBox "Küçük harf tespit edildi!", vbCritical
        Exit Sub
    End If
End Sub

3-)

Private Sub CommandButton1_Click()
    If Not Application.Evaluate("EXACT(""" & TextBox1 & """, """ & UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) & """)") Then
        MsgBox "Küçük harf tespit edildi!", vbCritical
        Exit Sub
    End If
End Sub

Hocam cevabınız için çok teşekkür ederim.
bunu farklı bir yöntemle deneme şansımız varsa mesela TextBox1 change bölümüne koyacağımız kod ile TextBox1 e yazdığımız küçük harfler otomatik olarak büyük harf olması daha kullanışlı olabilir teşekkür ederim.

 

[Korhan Ayhan]

Forumda arama yapınız. Daha önce bu tarz konular çok irdelenmişti.