INSERT INTO тДРклиентов ( ФИО, ТелефонСотовый, ТелефонДомашний, ТелефонРабочий, ДатаРождения )
SELECT DISTINCT Заказы.ФИО, Заказы.ТелефонСотовый, Заказы.ТелефонДомашний, Заказы.ТелефонРабочий, Заказы.[Дата рождения]
FROM Заказы
WHERE (((Заказы.[Дата рождения]) Is Not Null));

DELETE тДРклиентов.Код, тДРклиентов.ДатаРождения, тДРклиентов.ФИО
FROM тДРклиентов INNER JOIN тДРклиентов AS тДРклиентов_1 ON (тДРклиентов.ФИО = тДРклиентов_1.ФИО) AND (тДРклиентов.ДатаРождения = тДРклиентов_1.ДатаРождения)
WHERE (((тДРклиентов.Код)>[тДРклиентов_1].[Код]));

DELETE тДРклиентов.Код, *
FROM тДРклиентов
WHERE (((тДРклиентов.Код) Not In 
(SELECT Min(тДРклиентов.Код) 
   From тДРклиентов 
   GROUP By тДРклиентов.ФИО,  тДРклиентов.ДатаРождения 
   HAVING Count(*) > 1) And (тДРклиентов.Код) Not In 
(SELECT Min(тДРклиентов.Код) 
   From тДРклиентов 
   GROUP By тДРклиентов.ФИО,  тДРклиентов.ДатаРождения 
   HAVING Count(*) = 1)));