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 |
VBA >