MyTetra Share
Делитесь знаниями!
Удаление текущей записи формы
Время создания: 16.03.2019 23:43
Раздел: Разные закладки - VBA - Access - msa.polarcom.ru - 05 Формы
Запись: xintrea/mytetra_db_adgaver_new/master/base/1531972381dpqsvanebs/text.html на raw.githubusercontent.com

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

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"




Так же в этом разделе:
 
MyTetra Share v.0.65
Яндекс индекс цитирования