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

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

Private Sub cmdВашаКнопкаУдалитьЗапись_Click()
'Удаление записи в форме
    If Me.NewRecord = True Then 'Если запись новая
        Me.Undo
    Else
        'Запрос поддтверждения удаления записи при ответе НЕТ - остановка
        If MsgBox("Действительно удалить?", vbYesNo + vbQuestion + vbDefaultButton2, _
            "Удаление данных") = vbNo Then Exit Sub
        Me.Recordset.Delete     'Удаление записи
    End If
    Me.Refresh 'Обновление формы
End Sub


Или так:

Dim Response As Integer
    Response = MsgBox("Вы уверены, что хотите удалить запись?", _
            vbQuestion + vbYesNo, "Удалить запись?")
    If Response = vbYes Then
        Me.Recordset.Delete
        Me.Refresh
    End If



Или так:

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

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