Validation text cointains character and number in textbox

Question

Sturdy 11 Light Poster

12 Years Ago

Hi all,

How can i validate a text in text box?
I need to check that text length is 7 and first four characters is contain "ABCD" and last three characters must contain numbers.
e.g : ABCD123

Thank you.

visual-basic

2 Contributors
4 Replies
1K Views
7 Hours Discussion Span
Latest Post 12 Years Ago Latest Post by Sturdy

Jx_Man 987 Nearly a Senior Poster

12 Years Ago

This how far i'm doing. But i don't know how to check if last 3 character is number?

Use IsNumeric() function :

Private Sub Command1_Click()
Dim First4Char, Last3Char As String
First4Char = Mid(Text1.Text, 1, 4)
Last3Char = Mid(Text1.Text, 5, 7)
If Len(Text1.Text) <= 7 Then
    If First4Char <> "ABCD" Then
        MsgBox "Wrong"
    Else
        If Not IsNumeric(Last3Char) Then
            MsgBox "Wrong Input"
        Else
            ' Action if text is accepted
        End If
    End If
End If
End Sub

Edited 12 Years Ago by Jx_Man because: n/a

Sturdy commented: It worked very nice. :D +2

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Jx_Man 987 Nearly a Senior Poster Featured Poster · Answer 1 · 2012-02-18T23:24:19+00:00

You can use Mid() , Left() or Right() function to get The first four characters and the last 3 characters and Use Len() for the length of text.

Sturdy 11 Light Poster · Answer 2 · 2012-02-19T00:18:44+00:00

You can use Mid() , Left() or Right() function to get The first four characters and the last 3 characters and Use Len() for the length of text.

Thank you for the suggestion.
This how far i'm doing. But i don't know how to check if last 3 character is number?

Private Sub Command1_Click()
Dim First4Char, Last3Char As String
First4Char = Mid(Text1.Text, 1, 4)
Last3Char = Mid(Text1.Text, 5, 7)
If Len(Text1.Text) <= 7 Then
    If First4Char <> "ABCD" Then
        MsgBox "Wrong"
    End If
    ' How i can check if last 3 char is numbers?
    
End If
End Sub

Sturdy 11 Light Poster · Answer 3 · 2012-02-19T00:48:50+00:00

Use IsNumeric() function :

Private Sub Command1_Click()
Dim First4Char, Last3Char As String
First4Char = Mid(Text1.Text, 1, 4)
Last3Char = Mid(Text1.Text, 5, 7)
If Len(Text1.Text) <= 7 Then
    If First4Char <> "ABCD" Then
        MsgBox "Wrong"
    Else
        If Not IsNumeric(Last3Char) Then
            MsgBox "Wrong Input"
        Else
            ' Action if text is accepted
        End If
    End If
End If
End Sub

Thank you sir. It worked very nice.