hi all,

i try , to edit my 2 text at my form,
as if the text1 is same at my table replace 2 text, else
if i change text1 i want to locate if this item no(char) is found , if not found make replace else i see ameesage ,
any idea to fix code ..

LOCAL lbFlUsed
IF NOT USED("store")
   USE store IN 0
   lbFlUsed = .t.
ENDIF


SELECT store
   m.storeid=alltrim(thisform.text1.Value)
   m.description=thisform.text2.Value
IF m.storeid=ALLTRIM(thisform.text1.Value)
     GATHER memvar for storeid=m.storeid && error

     for each oCtl in THISForm.Controls
             if lower(oCtl.BaseClass) = "textbox"
                    oCtl.Value = ''
           endif
     endfor
  thisform.refresh

ELSE
             m.storeid=thisform.text1.Value
             m.vdescription=thisform.text2.Value
    LOCATE FOR STORE.storeid=thisform.text1.Value
IF FOUND() OR thisform.text1.Value=SPACE(10)
         =MESSAGEBOX("FOUND/ YOU MUST FILL ")
         thisform.text1.setfocus
ELSE

GATHER memvar m.storeid=alltrim(thisform.text1.Value)&&erro
 for each oCtl in THISForm.Controls
      if lower(oCtl.BaseClass) = "textbox"
                    oCtl.Value = ''
      endif
endfor
ENDIF
endif

thisform.refresh

thanks.