Как удалить совпадающие записи из списка?

[Ivan_RIV]

Здравствуйте! Подскажите пожалуйста, как доработать программу (Пример, скачанный в интернете) функцией удаления совпадающих по ФИО записей в списке, а так же записей, полученных в результате фильтрации, при этом совпадающие по ФИО записи, удаляются только из списка и должны оставаться в базе. Например, один человек по фамилии "Сидоров" записан дважды, но это не ошибка... При поиске по фамилии "Сидоров" выведется две записи одинаковых по ФИО (остальные данные могут быть другими), при активации функции в списке должна остаться одна запись вместо двух. Спасибо всем кто откликнулся!

[Teslenko_EA]

Здравствуйте Ivan_RIV.
"функцией удаления совпадающих по ФИО записей..удаляются только из списка и должны оставаться в базе.." - Вы хотели бы получить список уникальных значений?
Уникальные значения позволяет получить предикат DISTINCT:
select * from... - все значения
select distinct * from... - уникальные значения
Но в Вашем случае эти знания никак не пригодятся, т.к. список формируется с использованием поля Код_Ребенок, и хотя Вы не сделали его (это поле) ключевым и индексным, тип Счётчик подразумевает "уникальность".
"..удаляются только из списка.." - для каждого из "ребенков" поле Код_Ребенок является идентификатором в списке. И если я верно понял вопрос "как доработать программу..функцией..?" - ответ: это не возможно в принципе.
мнение: для того, что бы подобные вопросы не возникали в будущем, Вам стоит заняться изучением SQL.
Евгений.

[Serge_Bliznykov]

Как всегда, Евгений Тесленко, безусловно прав!

Думаю, что Вы просто не понимаете, что Вы просите сделать!

Хотя, формально, с Вашей задачей легко справится такой запрос:

"SELECT MIN(Код_Ребенок), Фамилия, Имя, Отчество, ДатаРождения FROM Ребенок GROUP BY Фамилия, Имя, Отчество, ДатаРождения"

p.s. вместо MIN можно использоать MAX

p.p.s. ещё раз повторю — Евгений прав! А Вы из правильной программы пытаетесь сделать неверную...

[Ivan_RIV]

Благодарю, всех кто откликнулся! Возможно я не правильно изложил вопрос.
Если отстраниться от буквального назначения программы (ФИО и дата рождения ученика) и если вместо даты рождения поставить другой атребут (поле), характеризующий ученика, например, "Дата отсутствия на уроке". Т.о. получится, что "Сидоров Сидор Сидорович" отсутствовал два раза и в базу он заносится два раза. Соответственно другие ученики могут так же отсутствовать несколько раз и тоже заноситься несколько раз. В базе будет теперь много записей и их можно будет сгрупировать по ФИО, т.е. введа ФИО получим, например, что "Сидоров Сидор Сидорович" встречается в базе два раза. Всего в базе 5 записей из них 2 записи это "Сидоров Сидор Сидорович", чтобы посчитать сколько учеников с разными фамилиями (список обучающихся в классе или школе детей) необходимо убрать совпадающие фамилии, то есть получиться должно 4 ученика. Если совпадает ФИО, то удаляется ФИО+все поля которые содержит запись ученика. Записи удаляются только из списка, но остаются в базе. Совпадения убираются, например, по нажатию кнопки или установки чекбокса, это не важно, как проще.
Как я понимаю, если поставить DISTINCT, то "Сидоров Сидор Сидорович" добавится все равно в базу, если он отсутствовал в разные дни. По поводу поля Код_ребенка, то его тип можно изменить, если это принципиально.

[Teslenko_EA]

Ivan_RIV, Вы можете и дальше продолжать выкладывать заявления "..Код_ребенка..тип можно изменить, если это принципиально...", результат останется нулевым.
Попытаюсь объяснить, сравните две таблицы возвращаемые запросами
первый вариант:
1а SELECT Фамилия, Имя, Отчество FROM Ребенок
вернет все записи (в образце пять строк)
2а SELECT DISTINCT Фамилия, Имя, Отчество FROM Ребенок
вернет уникальные записи (в образце четыре строки),
и второй вариант:
1б SELECT Код_Ребенок, Фамилия, Имя, Отчество FROM Ребенок
2б SELECT DISTINCT Код_Ребенок, Фамилия, Имя, Отчество FROM Ребенок
обе конструкции вернут все записи (строки) т.к. в них присутствует поле идентификатор - Код_Ребенок. Оно и есть "атребут (поле), характеризующий ученика.." (никак не "Сидоров Сидор Сидорович" и не "Дата отсутствия на уроке"), а т.к. оно участвует в конструкции кода :
..rs.FindFirst "[Код_Ребенок] = " & Str(Me!lst).., "избавляться" от него (изменять его тип) - неверное (бесполезное) занятие.
используя в качестве источника строк списка конструкцию подобную 2а, список будет отображать уникальные записи, но работоспособности проект лишится.

Вам стоит заняться изучением SQL!!!
Евгений.

[Serge_Bliznykov]

Вам стоит заняться изучением SQL!!!

скорее нужно для начала изучить, что такое нормальная форма, как проектируются структуры БД, а уж потом изучать SQL...

Т.о. получится, что "Сидоров Сидор Сидорович" отсутствовал два раза и в базу он заносится два раза.

должна быть таблица ваших детей/учеников...
в ней записи должны одназначно определяться КОДОМ (т.е. Сидоров Сидор Сидорович с кодом 1 и Сидор Сидор Сидорович с кодом 2 - это РАЗНЫЕ люди! (другой вопрос, как Вы их будете отличать, но это сути не меняет! - для программы это абсолютно разные сущности.
А таблица отсутствия на уроке - это ДРУГАЯ таблица, связанная с таблицей учеников реляционной связью!

короче, прежде чем программировать - надо разработать структуру БД.

[Ivan_RIV]

Спасибо, за подробные ответы... Попробую переделать структуру базы... Мир не без добрых людей!

[Kingson]

Здравствуйте, кого не видел.
Меня заинтересовал этот вопрос, а именно применение Distinct'а.
Дело в том, что у меня была проблема, в таблице (TMP) попадались одинаковые записи и надо было оставить только одну из них.
Я сделал это, но очень громоздко.
Вот так было бы гораздо проще:
"INSERT INTO Таблица (Код) SELECT DISTINCT TMP.*, Вычислить_код(TMP.Поле) FROM TMP ORDER BY " & Поля
, где Поля - это полный перечень полей таблицы TMP через запятую.
Так вот этот запрос почему-то не работает и вставляет в Таблицу всю TMP целиком. Кто бы сказал почему?

[Serge_Bliznykov]

distinct применяется ко всей выборке!
таким образом, у Вас выбираются несовпадающие значения полей из TMP + значение функции Вычислить_код(TMP.Поле)

хм... непонятно объяснил..
попробую ещё раз
вы выбираете значения полей из TMP + значение функции
пусть
select TMP.*, Вычислить_код(TMP.Поле)
вернёт набор

Поле1  Поле2 ВычКод
aaa       иии    111 
aaa       иии    122
aaa       bbb    111 
aaa       иии    122
bbb      bbb    111

тогда
select DISTINCT TMP.*, Вычислить_код(TMP.Поле)
вернёт набор

Поле1  Поле2 ВычКод
aaa       иии    111 
aaa       иии    122
aaa       bbb    111 
bbb      bbb    111

т.е. в результирующей выборке не будет двух ПОЛНОСТЬЮ (все поля учитываются) совпадающих строк.
и всё.

[Kingson]

А как можно написать запрос, чтобы TMP.* учитывался при совпадении, а функция Вычислить_код не учитывалась. Или это надо делать в два запроса?