Validate TextBox for Phone Numbers

Zzyzzyth · Aug 16th 2006

I was trying to validate a phone number before proceeding and was using TextBox.SetFocus to return to the textbox in question when there was an error, but it proceeded to the next control anyway. I gave up on that and modified some code I found from Dave (which cured the SetFocus problem).

The code below gives me the msgbox no matter what. I changed the code to allow for just the 10 digit phone number, and for the () and spaces. What am I doing wrong? Is there a better way?

All I'm trying to do is verify that the user has plugged in a 10-digit phone number. If not, set focus back to the offending textbox, otherwise, format the textbox and move on.

Code

Private Sub txtPhone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txtPhone.Text) <> 10 Or Len(txtPhone.Text) <> 14 Then
MsgBox "Error in Phone number"
Cancel = True
With txtPhone
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
txtPhone.Value = Format(txtPhone.Text, "(000) 000-0000")
End If
End Sub

Display More

Zzyzzyth · Aug 16th 2006

Re: Textbox.SetFocus

OK, I see. The error is: the length will ALWAYS be NOT 10 OR 14.

What's the most efficient way to vaildate a phone number?

Zzyzzyth · Aug 16th 2006

Re: Textbox.SetFocus

I ended up going with this. It works pretty well, but I am always interested in how others would have approached it. Especially when it is more efficient.

Code

Private Sub txtPhone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtPhone.Text Like "(###) ###-####" _
Or txtPhone.Text Like "##########" Then
txtPhone.Value = Format(txtPhone.Value, "(000) 000-0000")
Else
MsgBox "Error in Phone number"
Cancel = True
With txtPhone
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub

Display More

Dave Hawley · Aug 17th 2006

Re: Textbox.SetFocus

Zzyzzyth, please don't use meaningless Thread Titles. Give some thought to other that use the forum.

Share