TopPicLogo TopPicText

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

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

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


Назад ToTop
L.E. 07.11.2017
Рейтинг@Mail.ru