MyTetra Share
Делитесь знаниями!
Запрос на Удаление записей
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 03 Запросы

Запрос на Удаление записей

Примечание:
    Если вы используете имена обьектов с пробелами (что не рекомендуется) то имена полей в запросе должны обрамляться квадратными скобками : [Имя Поля]

Dim strSQL As String

Dim Msg As String, Style As Integer, Title As String, Response As Integer

'Строим запрос подтверждения от пользователя

Msg = "Внимание!" & vbCrLf & _

"Все записи из таблицы [TableName] с индексом больше ДВУХ будут удалены" & vbCrLf & _

"Действительно удалить?"

Style = vbYesNo + vbExclamation + vbDefaultButton2

Title = "Вопрос"

'Получаем ответ

Response = MsgBox(Msg, Style, Title)

'Если пользователь ответил "ДА!"

If Response = vbYes Then

strSQL = "DELETE FROM TableName WHERE RecordID > 2"

CurrentDb.Execute strSQL

End If





Ещё вариант:


Dim strSQL As String

Dim lRec As Long


lRec = Me!ctID

'Запрос подтверждения удаления записи при ответе НЕТ - остановка

If MsgBox("Действительно удалить ???", _

vbYesNo + vbCritical + vbDefaultButton1, _

"Удаление данных") = vbNo Then Exit Sub

'Удаление ....

strSQL = "DELETE FROM dtCourseTeachers WHERE ctID = " & lRec

CurrentDb.Execute strSQL


Me.Requery





 
MyTetra Share v.0.52
Яндекс индекс цитирования