In many cases, it is best to select or highlight the full text of afield when that field gains the focus. This allows the user to simply begintyping to replace the original text with new text or to press tab to leaveas is and move to the next field. This implements with very little code.In a global module, include this code:
Sub SetSelected() Screen.ActiveControl.SelStart = 0 Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)End Sub
For each field, include this text:
Sub txtField_GotFocus() SetSelectedEnd Sub