The first 4 characters can be any alphabet (A-Z) and the fifth one should be zero ( 0 ) or any numeric value in the textbox of user form.

[SamarthSalunkhe]

Hi All,

I am using the below code to restrict numbers only in the textbox of user form, it is working very well. just for knowledge purposes, I want to change restrictions like in the test box I want to allow the first 4 characters can be any alphabet (A-Z) and the fifth one should be zero ( 0 ) or any numeric value. Eg. : "ABCD0BD459"

Private Sub txtMobile_Change()
 'Mobile number Must be in Numbers only.
Dim x As Long
Dim a As String
a = "##########"

With txtMobile
    x = Len(.Text)
    If Not .Text Like Left(a, x) Then
          .Text = Left(.Text, x - 1): MsgBox "Mobile number Must be Numeric", vbExclamation, "Incorrect Mobile Number"
    End If
End With
End Sub

 

[SamarthSalunkhe]

Sorry, I just realized that you're talking about textbox on a userform, so use this one:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

With TextBox1
    If .Value <> "" Then
        If Not .Value Like "[A-Z][A-Z][A-Z][A-Z]0[A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9]" Then
'            .Value = ""
             MsgBox "Wrong input", vbExclamation, "Incorrect Mobile Number"
            Cancel = True

        End If
    End If
End With


End Sub

Hi Akuini,

Sorry to ask a silly question, is it possible to check special characters when moving the focus out of the textbox then the focus will get back to the textbox along with the message.

really appreciate your help on this.

 

[Akuini]

is it possible to check special characters

what do you mean by "check special characters"?

 

[SamarthSalunkhe]

what do you mean by "check special characters"?

means any symbol (@#_&-+/*"':;!?).

Symbols should not be accepted by the text box

 

[Akuini]

Symbols should not be accepted by the text box

The code already do that.

 

[SamarthSalunkhe]

The code already do that.

Yes above code is working fine, instead of 11 characters criteria, I want user can put any value (Alphabet, Number) but textbox should not accept any symbol.

 

[Akuini]

but textbox should not accept any symbol

At first the code will accept any symbol, but after you try to exit the textbox, the message box will pop up, because the text isn't valid.
But if what you mean is preventing it each time you type a character then we would go back using Change event which as I said it's harder to code & also slower.

 

[SamarthSalunkhe]

At first the code will accept any symbol, but after you try to exit the textbox, the message box will pop up, because the text isn't valid.
But if what you mean is preventing it each time you type a character then we would go back using Change event which as I said it's harder to code & also slower.

Yes actually, I think my previous message was not cleared my request.

I am using the below change event to prevent Symbol from textbox, I have tried to use it under Exit event but it is not working (also I am not getting any error).

Could you please help me with it?

Private Sub TxtName_Change()

Dim LastPosition As Long

Const PatternFilter As String = "*[!0-9A-Za-z ]*"

  Static LastText As String
  Static SecondTime As Boolean
  If Not SecondTime Then
    With txtName
     If .Text Like PatternFilter Then
        MsgBox "Special Character is not allowed in this tab", vbExclamation, "Special Character Found"
        SecondTime = True
        .Text = LastText
        .SelStart = LastPosition
      Else
        LastText = .Text
      End If
    End With
  End If
  SecondTime = False
  
End Sub

 

[Akuini]

I need to be clear about this:
Using my code in post #9:
At first the code will accept any symbol, but after you try to exit the textbox, the message box will pop up, because the text isn't valid.
Are you saying it doesn't work as I described OR it works as I described but it's not what you want, because what you want is to validate it every time you type a character?

 

[SamarthSalunkhe]

I need to be clear about this:
Using my code in post #9:
At first the code will accept any symbol, but after you try to exit the textbox, the message box will pop up, because the text isn't valid.
Are you saying it doesn't work as I described OR it works as I described but it's not what you want, because what you want is to validate it every time you type a character?

Previous code is working fine, actually I want another one code.
Below is the requirements.
User can put any character excluding Symbol. (there is no character limit for textbox)
I'm using below change event to prevent this. I have tried to use it under Exit but it's not working.
Could you please help me to validate this under Exit event.

Private Sub TxtName_Change()

Dim LastPosition As Long

Const PatternFilter As String = "*[!0-9A-Za-z ]*"

  Static LastText As String
  Static SecondTime As Boolean
  If Not SecondTime Then
    With txtName
     If .Text Like PatternFilter Then
        MsgBox "Special Character is not allowed in this tab", vbExclamation, "Special Character Found"
        SecondTime = True
        .Text = LastText
        .SelStart = LastPosition
      Else
        LastText = .Text
      End If
    End With
  End If
  SecondTime = False
  
End Sub

 

[Akuini]

Try:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Const PatternFilter As String = "*[!0-9A-Za-z ]*"
    With TextBox1
     If .Text Like PatternFilter Then
        MsgBox "Special Character is not allowed in this tab", vbExclamation, "Special Character Found"

      End If
    End With

End Sub