>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 = ''
this.SetFocus()
NoDefault
ELSE
thisform.Calculate()
ENDIF
"You don't manage people. You manage things - people you lead" Adm. Grace Hopper
Pflugerville, between a Rock and a Weird Place