CNTTEMP=This.Value * This says where the product is If Left(CNTTEMP,1)="*" TEMPLOC=Substr(CNTTEMP,2) Else * this it to change quantity by more than one at a time If Left(CNTTEMP,1)="#" TEMPCOUNT=Val(Substr(CNTTEMP,2)) ********************************************************************************************** Seek TEMPUPC Order Tag CUPC In INVCOUNT && WHAT IS THE VALUE OF TEMPUPC? FROM WHERE? ********************************************************************************************** If Found() Replace INVCOUNT.NCOUNT With INVCOUNT.NCOUNT+TEMPCOUNT In INVCOUNT Endif Else * this is the product UPC code TEMPUPC=CNTTEMP ********************************************************************************************** Locate For TEMPLOC=INVCOUNT.CLOCATION While TEMPUPC = INVCOUNT.CUPC && WHAT IS VALUE OF TEMPLOC, I see it is sttored ONLY IF Left(CNTTEMP,1)="*" ********************************************************************************************** If Found() Replace INVCOUNT.NCOUNT With INVCOUNT.NCOUNT+1 In INVCOUNT Else Append Blank In INVCOUNT Replace INVCOUNT.CLOCATION With TEMPLOC Replace INVCOUNT.CUPC With TEMPUPC Replace INVCOUNT.NCOUNT With 1 Endif Endif Endif CNTTEMP="" Thisform.Refresh