Khubaib,

If you want it to stop, the simplest way would be to add RETURN right after SetFocus.

See another change I made. It is very important in your case to add NOFILTER clause in your select statement.

See some changes inline.

>endif command do not stops.
>
>

>mtxt_snot=thisform.text4.value
>IF EMPTY(mtxt_snot)
>=MESSAGEBOX("Please Write subscriber# in box")
>
>thisform.text4.setfocus 

  RETURN

>endif&& should be stop but stop



>
>
>SELECT * FROM registration WHERE mtxt_snot=sno ORDER BY sno INTO CURSOR hj98890op NOFILTER
* SELECT hj98890op
>IF _TALLY = 0
>=MESSAGEBOX("Record in not in list")
>
>RETURN 0
>ENDIF
>