m.storeid=thisform.text1.Value m.description=thisform.text2.Value LOCATE FOR m.storeid=store.storeid IF FOUND() OR m.storeid=SPACE(10) =MESSAGEBOX("FOUND/ YOU MUST FILL ") thisform.text1.setfocus ELSE APPEND BLANK GATHER memvar for each oCtl in THISForm.Controls if lower(oCtl.BaseClass) = "textbox" oCtl.Value = '' endif endfor ENDIF thisform.refreshthanks.