Skip to content

Instantly share code, notes, and snippets.

@kissmygritts
Last active August 29, 2015 14:17
Show Gist options
  • Save kissmygritts/470fdba91313263d48b0 to your computer and use it in GitHub Desktop.
Save kissmygritts/470fdba91313263d48b0 to your computer and use it in GitHub Desktop.
Move cursor to start of masked field. Set as On Click event.
Sub MoveFirst()
Dim acform As String
Dim accontrol As String
acform = Screen.ActiveForm.Name
accontrol = Screen.ActiveControl.Name
Forms(acform).Controls(accontrol).SetFocus
Forms(acform).Controls(accontrol).SelStart = 0
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment