TopPicLogo TopPicText

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

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 MsgBox("Действительно удалить ???", _
        vbYesNo + vbCritical + vbDefaultButton1, _
        "Удаление данных") = vbNo Then Exit Sub
   
   Me.Recordset.Delete
   
   DoCmd.Close acForm, Me.Name
   DoCmd.OpenForm "Courses"

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