if thisform.text4.value=space(10) thisform.text4.setfocus =MESSAGEBOX(" you must enter") thisform.grid1.visible=.f. else thisform.grid1.visible=.t. LOCATE FOR UPPER(E)=UPPER(TRIM(THISFORM.TEXT4.VALUE)) IF !FOUND() APPEN BLANK REPLACE E WITH THISFORM.TEXT4.VALUE REPLACE COLUMN14 WITH THISFORM.TEXT4.VALUE REPLACE F WITH THISFORM.TEXT5.VALUE REPLACE S WITH THISFORM.TEXT6.VALUE REPLACE FLAG WITH THISFORM.TEXT2.VALUE ELSE REPLACE E WITH THISFORM.TEXT4.VALUE REPLACE COLUMN14 WITH THISFORM.TEXT4.VALUE REPLACE F WITH THISFORM.TEXT5.VALUE REPLACE S WITH THISFORM.TEXT6.VALUE REPLACE FLAG WITH THISFORM.TEXT2.VALUE ENDIF endif thisform.Refreshthanks