VBA‎ > ‎

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
Comments