Yes, but even you have one record it will found that record? :)

>No, this just seeks the first one and deletes that. The flag gets you out of loop. And he doesn't want del all dupes -just 1 out of 3 (but it assumes there are always 3, as I said)
>
>>Don't you delete all records with that? He needed two records each key.
>>
>>>Metin
>>>
>>>Wouldn't it be best to set the order to the index Tariq had?
>>>
>>>Then (assuming always 3 of each or just 1), something like:
>>>
>>>

>>>SCAN
>>>  llFound       = .F.
>>>  lnRecNo       = RECNO()
>>>  xdate         = date
>>>  xvoucher      = voucher
>>>  xtype         = type
>>>  xSeekKey      = DTOC( date) + str( voucher) + Type  && NOTE not ALLTRIM( Type) when used in key.
>>>  Do while llFound
>>>    If INDEXSEEK( xSeekKey, .T., "ThisTable", "TariqsIndex")
>>>        Delete
>>>        llFound = .T.
>>>        Goto lnRecNo                                  && Don't even think this necessary
>>>    Endif
>>>  EndDO
>>>EndSCAN