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