VBA, MS Access MS Access в примерах

Удаление текущей записи формы

Private Sub cmdDelete_Click()
'Delete
'--------------------------------------------------------------------
Dim str As String
Dim Response As Integer
Dim x As Long
Dim frm As Form
'--------------------------------------------------------------------
On Error GoTo cmdDelErr

    Response = MsgBox("Вы действительно собираетесь удалить запись?" & vbCrLf & _
    "", vbOKCancel + vbQuestion + vbDefaultButton2, "Вопрос")
    If Response = vbCancel Then Exit Sub

    DoCmd.Close acForm, Me.Name

'Собственно удаление
     str = "DELETE FROM dtNews WHERE NewsID=" & ARec
     CurrentDb.Execute str
     
'Переход
    DoCmd.OpenForm "NewsAll"
    Exit Sub

cmdDelErr:
    MsgBox "Произошла ошибка выполнения!" & vbCrLf & _
    Err.Description & " - #" & Err.Number, vbCritical, "Ошибка выполнения!"
    Err.Clear
End Sub


Или так:

    If Me.NewRecord = False Then
        'Запрос поддтверждения удаления записи при ответе НЕТ - остановка
        If MsgBox("Действительно удалить ???", _
            vbYesNo + vbCritical + vbDefaultButton1, _
            "Удаление данных") = vbNo Then Exit Sub
        Me.Recordset.Delete
   End If

   DoCmd.Close acForm, Me.Name
   DoCmd.OpenForm "Courses"

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