Default area code in Phone field with input mask

[ijo68]

I am using this input mask in a phone number field: \(999") "000\-0000;;_
The field could only take 10 digits.
I would like to have a default area code on Gotfocus or on click using vba.
I tried several methods with no success.
Does anyone know how this could be accomplished.

This method for example puts the area code at the end. Can anyone determine why this does not work.

Private Sub YourPhoneNumberField_GotFocus()


Dim defaultAreaCode As String
Dim currentPosition As Integer
defaultAreaCode = "800"
' Remove spaces from the current value of the field
Dim phoneNumber As String
phoneNumber = Replace(Me.PhoneNumberField, " ", "")
' Insert the area code at the beginning
Me.PhoneNumberField = defaultAreaCode & Mid(phoneNumber, 4)
currentPosition = Len(defaultAreaCode) ' Set cursor position after the first 3 digits
Me.PhoneNumberField.SetFocus
Me.PhoneNumberField.SelStart = currentPosition
End Sub

[June7]

Could have area code in its own field.

[davegri]

If you get this working, what happens when your local area codes expand? In Colorado, area codes have expanded from one to four!

[Micron]

What does "does not work" mean? Nothing happens? Cursor in wrong position? Cursor not in any position? In that vein, consider that character position in a string is to the left of the character. So the periods are at position 1, 2 and 3 respectively:
.800
8.00
80.0
Since Len(defaultAreaCode) is 3, your cursor position would be between the two zeros.

If you use that as the starting point for this you should be in the wrong position.

[ijo68]

this works..
In the input mask property of the field use : \(999") "000\-0000;;_

In the GotFocus use this code:

If IsNull(Me.yourPhoneField) Then
yourPhoneField.Value = "(555)"
yourPhoneField.SelStart = 5
End If
yourPhoneField.InputMask = "(000)000-0000"

this also allows you to change the area code if it is not 555.