How position cursor at the beginning of a textbox that has an edit mask?

[Bazsl]

I am new to Access. If I click the mouse in an empty bound TextBox that has an input mask the cursor will be left on the character position in the input mask that I happened to click. How can I automatically position the cursor on the first character of the input mask? I assume I can do this in either the OnEnter or OnGotFocus event handler but I am not sure which event to use or how to position the cursor at the left-most character of the mask. Thanks.

[rpeare]

I use this function to go to the last character in the field you can adapt it to your situation

Public Function PFLP()
'moves cursor to the last position of any field, used to prevent accidental overwriting of data
'SYNTAX:  PFLP
On Error GoTo ERRHANDLER
If Screen.ActiveControl.Enabled = True Then
    If InStr(Screen.ActiveControl.Tag, "ED") > 0 Then       'ED in the string indicates a date value
        If IsNull(Screen.ActiveControl.Value) Then          'Empty Date
            Screen.ActiveControl.SelStart = Screen.ActiveForm(Screen.ActiveControl.Name & "").SelLength
        Else                                                'Date present with \ marks
            Screen.ActiveControl.SelStart = Screen.ActiveForm(Screen.ActiveControl.Name & "").SelLength + 2
        End If
    Else                                                    'other text or numeric field
        Screen.ActiveControl.SelStart = Screen.ActiveForm(Screen.ActiveControl.Name & "").SelLength
    End If
End If
Exit Function
ERRHANDLER:
Resume Next
End Function

it may be as simple as screen.activecontrol.selstart = 0 or screen.activecontrol.selstart = 1. I'm unsure how input masks may affect this. All you'd have to do is put in the ON ENTER property of the field pflp and possible in the ON CLICK event of the field as well.

[Bazsl]

I must be missing something. I have tried calling the following from both OnEnter and GotFocus.

Private Sub MoveCursorToFirstChar()
If IsNull(Screen.ActiveControl.Value) Then
Screen.ActiveControl.SelStart = 0
End If
End Sub

I have stepped through the code in the debugger and SelStart = 0 does execute but the cursor does not move to the first position in the input mask. The input mask is 000\-000\-0000. Any idea why this does not work? Thanks.

[rpeare]

I posted what I use because it specifically handles dates where the / marks are part the input mask use the ON CLICK event of the field as well

[Bazsl]

OnClick did the trick. Sorry I missed that in your original post. Many thanks.