ikinci karakter iki nokta(:) ise mesaj oluşturmak

[k0081]

Merhaba arkadaşlar;

Textbox a girilen değerlerde ikinci karakter iki nokta ise mesaj versin. bu sorgulamayı da enter tuşundan sonra yapsın.. yani Z: DENİZ yazıp enter a bastığımda giriş var mesajı versin..

textbox içerik = Z: DENİZ

"giriş var" mesajı versin..

Yardımcı arkadaşa şimdiden teşekkürler..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode <> 13 Then Exit Sub
    If TextBox1 <> "" Then
        If Mid(TextBox1, 2, 1) = ":" Then
            MsgBox "Giriş var!", vbCritical
            Exit Sub
        End If
    End If
End Sub

 

[k0081]

Korhan Ayhan

hocam çok teşekkür ediyorum,, Tamamdır. . saygılar.