I'm not sure there is alternative approach, unfortunately. But calling one object SetFocus from another GotFocus messes up the event sequence. At least add nodefault in GotFocus then.

>>>>

>>>>llfound = INDEXSEEK(lccid)
>>>>
>>>>IF llFound AND lcCID <> gCID
>>>>	=msgfrm(SPACE(4) + 'User ID ' + lcCID + ' already exists.' + ;
>>>>		CHR(10) + SPACE(10) + 'Re-enter or Revert.' ;
>>>>		,'0',,'S','Existing field value',0,gnMsgWait)
>>>>	KEYBOARD '{LEFTARROW}'
>>>>	RETURN
>>>>ENDIF
>>>>

>>>>I used debug to see the values
>>>Sorry
>>>

KEYBOARD '{LEFTARROW}' should be Thisform.CID1.Setfocus

>>
>>Calling SetFocus from another control GotFocus doesn't look kosher to me.
>I used it because it worked, is there a reason not to use it?