|
|||||||
Удаление текущей записи формы
Время создания: 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" |
|||||||
Так же в этом разделе:
|
|||||||
|
|||||||
|