Count characters in control in real-time

[cheuschober]

Okay, seems like it should be simple... maybe I'm wrong though:

Any one know how to do real-time counting of the number of characters in a text box so that once it reaches 3 it automatically moves to the next text box? (Doing a phone number ... area code (int) and phone (long) to make for a total of 6 bytes.)

I've tried several versions of code for the on-change event but I can't seem to find the right way to assess the number of characters currently in the control... I'm pensive about setting an invisible control to just 'count up' because the on-change event would stack it even with a deletion. See most recent attempt below...

Obrigado,
~Chad

Private Sub txtAreaPhone_Change()
Dim bytCount As Byte
Dim strAPhone As String

If IsNull(Me.txtAreaPhone) = False Then
    strAPhone = Cstring(Trim(Abs(Me.txtAreaPhone)))
    bytCount = Len(strAPhone)
    If bytCount = 3 Then
         Me.txtPhone.SetFocus
    Else
    End If
Else

MsgBox "This is Null"

End If

End Sub

 

[RuralGuy]

This is one of those time when you need to look at the .Text property rather than the .Value property.