Don't be so jealous. Btw, Samuel, if you wish to address me with a title then you could use something simpler, e.g. 'your majesty'.

>Hey, I see you're listening to Ed and even call him "Sir" but you're ignoring my changes. <g>
>
>Anyway, just step through this code in the debugger and see what it's doing on and what is lcNotes, etc.
>
>Ed asks you to check the index expression for the TAG. I guess it's just a field name, right?
>
>
>
>>>First of all, it is not the latest code, because you promised to use either lcNotes or m.lcNotes. Please, change it, run again, and if it still gives error then re-post it (corrected version), and answer if partnum field has the same length in both crsbom and mynotes. After you answer the question, answer another one: what is expression for 'tcomprt' index tag?
>>>It is extremely important if you will keep exact sequence of the steps.
>>
>>Sorry Sir, here it is. I have tried running this code and it is still not copying mynotes.notes to crsbom.notes. The PartNum has the same length in both tables.
>>
>>What is expression for 'tcomprt' index tag? <-- What do you mean by this sir?
>>
>>

>>SELECT mynotes
>>lcNotes = ""
>>SET ORDER TO TAG tComPrt
>>SEEK crsbom.partnum
>>SCAN WHILE mynotes.COMPRT_61 = crsbom.partnum
>> IF EMPTY(mynotes.NOTES_61)
>>  LOOP
>> ENDIF
>> lcNotes = lcNotes + ALLTRIM(mynotes.NOTES_61)+ space(1)
>>ENDSCAN
>>IF NOT EMPTY(lcNotes)
>> REPLACE Notes WITH crsbom.notes + lcNotes IN crsbom
>>ENDIF
>>