setfocus

[DharmeshKP]

I have user form for patient data entry
I want to validate phone to to 10 digit numeric form
I havel following dode
I run fine
No error is there
Only problem is if wrong entry done, it removes it and curser moves to next textbox
I need curser in same text box so that user is forced to fill proper data

Private Sub TextBox8_afterupdate()
If Not IsNumeric(TextBox8.Value) Or Len(TextBox8.Text) <> 10 Then
TextBox8.Text = ""
TextBox8.SetFocus
End If


End Sub

 

[Yongle]

Your code is correct but in the incorrect event procedure
Delete TextBox8_afterupdate

If TextBox9 is the next textbox

Private Sub TextBox9_Enter()
    If Not IsNumeric(TextBox8.Value) Or Len(TextBox8.Text) <> 10 Then
        TextBox8.Text = ""
        TextBox8.SetFocus
    End If
End Sub

 

[DharmeshKP]

Thanks for reply
after changing code curser sets in next textbox ie textbox10
even more troublesome as textbox 9 is missed altogather
Pl suggest some solution

 

[Yongle]

It works for me, but my form is very simple
- something must be different in your form

What are your AutoTab property settings for TextBox8 and TextBox9 ?

 

[DharmeshKP]

Autotab property in false for both of them. I tried after turning true. It do not work

 

[Fluff]

How about

Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   With Me.TextBox8
      If Not IsNumeric(.Value) Or Len(.Value) <> 10 Then
         .Value = ""
         Cancel = True
      End If
   End With
End Sub

 

[DharmeshKP]

wonderfull idea
it worked verywell
thanks a lot for your help

 

[Rick Rothstein]

If Not IsNumeric(TextBox8.Value) Or Len(TextBox8.Text) <> 10 Then

I know you have an answer to your question but it uses the above line of code from your original post. I would like to suggest that IsNumeric is a terrible function to use to decide if an an entry into a TextBox is a number or not. See my mini-blog article here for the reason why...

Thinking About Using VBA's IsNumeric Function? Read this first.

My suggestion would be to use this in place of the above code line...

If Not TextBox8.Text Like "##########" Then

 

[DharmeshKP]

Thanks for your suggestion
Would you like to suggest simillar thing for email validation
How to write for email validation