Move cursor to start of text field when clicked in Access database form

Public Function fCursorToStartOnClick()

'* Move cursor to start of text field when clicked

On Error Resume Next

If Len(Screen.ActiveControl.InputMask) > 0 Then

If IsNull(Screen.ActiveControl) Then

Screen.ActiveControl.SelStart = 0

End If

End If

On Error GoTo 0

End Function