>The Code below is in a txt.LostFocus()
>
>If the user gets an error I need to stay focused on that text
>
>How is that done??
>
>
>IF !INLIST(UPPER(ALLTRIM(this.Value)),'YES','NO')
> =MESSAGEBOX('Invalid Data : Must be YES or NO',0 + 16,'Invalid Data')
> this.Value = ''
> ******************************
> *-- I NEED TO ADD CODE HERE TO KEEP FOCUS ON THIS TEXT FIELD
> ******************************
>ELSE
> thisform.Calculate()
>ENDIF

IF !INLIST(UPPER(ALLTRIM(this.Value)),'YES','NO')
	=MESSAGEBOX('Invalid Data : Must be YES or NO',0 + 16,'Invalid Data')
	this.Value = ''
                ******************************
                *-- I NEED TO ADD CODE HERE TO KEEP FOCUS ON THIS TEXT FIELD
      this.SetFocus()
      NoDefault
                * or some minor variation thereof    
                ******************************
ELSE
	thisform.Calculate()	
ENDIF