When tabbing between Controls on Forms and they contain text all the data within the Control is selected.\u00a0 This can be problematic as Users may inadvertently overwrite what is already there and not even realize it as they begin typing.\u00a0 To avoid that you can force the Cursor to land at the beginning or the end of the Control by using one of\u00a0 the below Sub’s.\u00a0 For example, for Controls where the Date is entered I prefer to have the User start at the beginning, however, if entering notes I put the Cursor at the end of the Control.<\/p>\n
To put the Cursor at the beginning…<\/p>\n
\r\nSub sMoveCursorToStart()\r\nOn Error GoTo ClearIt\r\n'Moves the cursor to the START of text in the control\r\n\r\n Dim ctl As Control\r\n Set ctl = Screen.ActiveControl\r\n \r\n If IsNull(ctl) Then Exit Sub\r\n ctl.SelStart = 0\r\n Exit Sub\r\n\r\nClearIt:\r\n Err.Clear\r\nEnd Sub\r\n<\/pre>\nTo use place the below in the On_Enter of the Control…<\/p>\n
\r\nMe!YourControlName.EnterKeyBehavior = True\r\nsMoveCursorToStart\r\n<\/pre>\n<\/p>\n
To put the Cursor at the end…<\/p>\n
\r\nSub sMoveCursorToEnd()\r\nOn Error GoTo ClearIt\r\n'Moves the cursor to the END of text in the control\r\n \r\n Dim ctl As Control\r\n Set ctl = Screen.ActiveControl\r\n\r\n If IsNull(ctl) Then Exit Sub\r\n ctl.SelStart = Len(ctl.Text)\r\n Exit Sub\r\n\r\nClearIt:\r\n Err.Clear\r\nEnd Sub\r\n<\/pre>\nTo use place the below in the On_Enter of the Control…<\/p>\n
\r\nMe!YourControlName.EnterKeyBehavior = True\r\nsMoveCursorToEnd\r\n<\/pre>\n<\/div>\n