Ok Im going to try this but i was also thinking about using a scan to count the instances of a record

>Yes, the code will still work.
>
>Assuming you created a readwrite cursor with duplicates from the previous code.
>

>select crsTest && use the name of the cursor you created
>INDEX on fName TAG fName
>
>PRIVATE pnRec, pcName
>
>pnRec = -1
>pcName = crsTest.FName
>
>replace IDFld WITH IIF(crsTest.FName == m.pcName, NVL(_VFP.SetVar('pnRec', m.pnRec+1),1), ;
>NVL(_VFP.SetVar('pcName', crsTest.FName),1) * NVL(_VFP.SetVar('pnRec', 0),1)) * (m.pnRec + 1) IN crsTest NEXT 40
>
>&&browse