Hi All

I created a product entry form on which I have one text box (micode). In lost focus event of the said box I type the following codes:

micode = This.Value
valmicode = IsBlack(micode)
if ! valmicode
select products
set orde to icode
seek micode
if foun()
.... displays values
else
scat memv blank
endif
else
nanswer= messagebox("Do you wish to exit ?",4+32+256, "Your ;
Selection",0)
do case
case nanswer = 6
ThisForm.Release
other
This.SetFocus
Nodefault
endcase
endif

Now, the question is, if I click on find button (if I want to find a specific record relating to this ) in commandgroup button (cmdFind) it checks the routine in lostFocus of the text box which is ofcourse blank and therefore it displays the message "Do you wish to exit ?". It really irritating, how can I overcome this ? Is there any idea for the better solution.

Please help !

Saify