Public Sub DeletingRecords()
Dim rstMain As DAO.Recordset
Dim rstToDelete As DAO.Recordset
Dim ID As Integer
rstToDelete.MoveFirst
While Not rstToDelete.EOF
ID = rstToDelete.Fields("ID").Value
rstMain.FindFirst "ID = " & ID
If (rstMain.NoMatch = False) Then
rstMain.Delete
End If
rstToDelete.MoveNext
Loop
End Sub
Как при совпадении ключа, удалить записи?
Есть Таблица1 - список деталей. ~30 000 записей
Есть Таблица2 - список деталей которые надо удалить из Таблицы1
Удалить надо 20-30 кодов деталей из Таблицы1.
Мой гениальный алгоритм:
1. Читаю Таблица1
2. Ищу соответствующий код детали в Таблице2
3. Если нашёл, то запись из Таблицы1 отмечаю для удаления ( только отмечаю )
4. Go to на метку 1.
Дело в том, что надо анализировать!
Сколько деталей я удалил из Таблицы1
Сколько деталей я не нашёл в Таблице1
Есть Таблица2 - список деталей которые надо удалить из Таблицы1
Удалить надо 20-30 кодов деталей из Таблицы1.
Мой гениальный алгоритм:
1. Читаю Таблица1
2. Ищу соответствующий код детали в Таблице2
3. Если нашёл, то запись из Таблицы1 отмечаю для удаления ( только отмечаю )
4. Go to на метку 1.
Дело в том, что надо анализировать!
Сколько деталей я удалил из Таблицы1
Сколько деталей я не нашёл в Таблице1
О чём идёт речь? Аксесс? Эксель? Что-то ещё?
И ещё, название темы не сочетается с содержимым вопроса. Не забыл ли ты чего-нибудь?
И ещё, название темы не сочетается с содержимым вопроса. Не забыл ли ты чего-нибудь?
Цитата: klen1
Есть Таблица1 - список деталей. ~30 000 записей
Есть Таблица2 - список деталей которые надо удалить из Таблицы1
Удалить надо 20-30 кодов деталей из Таблицы1.
Мой гениальный алгоритм:
1. Читаю Таблица1
2. Ищу соответствующий код детали в Таблице2
3. Если нашёл, то запись из Таблицы1 отмечаю для удаления ( только отмечаю )
4. Go to на метку 1.
Дело в том, что надо анализировать!
Сколько деталей я удалил из Таблицы1
Сколько деталей я не нашёл в Таблице1
Есть Таблица2 - список деталей которые надо удалить из Таблицы1
Удалить надо 20-30 кодов деталей из Таблицы1.
Мой гениальный алгоритм:
1. Читаю Таблица1
2. Ищу соответствующий код детали в Таблице2
3. Если нашёл, то запись из Таблицы1 отмечаю для удаления ( только отмечаю )
4. Go to на метку 1.
Дело в том, что надо анализировать!
Сколько деталей я удалил из Таблицы1
Сколько деталей я не нашёл в Таблице1
Алгоритм действительно гениальный..:)
Не легче перебрать "20-30" записей, чем перебирать "~30 000" записей?..
Код примерно следующий..
Код: