>>>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
KEYBOARD '{LEFTARROW}' should be Thisform.CID1.Setfocus>