Error in a script to find duplicates

I had a go at this, changing text(i) to i.text in the two lines where it is used.

It did work and removed duplicates in a small table but then hung and I had to quit out and come back in again, so I could't reccommend using this bit of code.

How about

let t := "";
for i in (select Table) order by Field do
   if t = i.Field then
      i.(Field:= "xxx")
   else
      t := i.Field
   end
end;
delete (select Table)[Field = "xxx"]

Regards

John

Strange but true I saw it remove the duplicates but then I couldn't do anything. Try the above which renames duplicates with 'xxx' and then bulk deletes them.

Sorry I missed that. I think Oiseaux famille genres espéces needs to be in single quotes 'Oiseaux famille genres espéces' whereever it's used, and Field has to be replaced with your field name that has the duplicates.

By the way should I have put also simples quotes on the name ("Name") of the field ?

Hi

You are missing the select statement in line 2. On line 9 change No to Nom. You only need to put the table and field names in single quotes when they have spaces in them.

let t := "";
for i in (select 'Oiseaux famille genres espéces’) order by Nom do
   if t = i.Nom then
      i.(Nom:= "xxx")
   else
      t := i.Nom
   end
end;
delete (select 'Oiseaux famille genres espéces’)[Nom = "xxx"]

Regards John

Thanks a lot

Now I get that error :

"A table has not been find : Oiseaux famille genres espéces’) order by Nom do if t= i.Nom then i. (Nom:="xxx") else t :=i.Nom end end; delete(select on the line 9, columnne 23"

Can you post a screenshot of the code

Infortunetly one can no more add screen shot in the forum for a while…

How can I post you a screen shot ? By mail ?

How this happened I don't know, but we have two types of single quote going on

' ASCII code 39 is at the start of your table name

’ ASCII code 146 is at the end of your table name

Make them both the same, using the one at the start. 'Oiseaux famille genres espéces'. Change this in both places it's used.

I did it.

let t := "";

for i in 'Oiseaux famille genres espéces' order by Nom do

   if t = i. Nom then

      i.(Nom:= "xxx")

   else

      t := i. Nom

   end

end;

delete 'Oiseaux famille genres espéces'[Nom = "xxx"]

But : "a column has not been find : Oiseaux famille genres espéces on the line 2, column 42" as before…

Sorry, I forgot the select statement !

let t := "";

for i in (select 'Oiseaux famille genres espéces') order by Nom do

   if t = i.Nom then

      i.(Nom:= "xxx")

   else

      t := i.Nom

   end

end;

delete (select 'Oiseaux famille genres espéces')[Nom = "xxx"]

but I got :

 "a column has not been find : Oiseaux famille genres espéces on the line 2, column 50" as before…