1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Private Sub () Тусклое сообщение как шнур Тусклое rstAppt как DAO.Recordset Тусклое strSQL как шнур strSQL = «ВЫБИРАЕТ * ОТ tbl_APPTs ГДЕ CLIENT_ID = «» & Me.CLIENT_ID & «» И APPT_ID = ««& Me.APPT_ID &»» « Установите rstAppt = CurrentDb.OpenRecordset (strSQL, dbOpenDynaset) сообщение = MsgBox («вы хотите уничтожить это назначение? », vbYesNoCancel) Если сообщение = vbYes после этого 'Уничтожьте это назначение DoCmd.Close, "", acSaveNo rstAppt.Delete Закончитесь если Если сообщение = vbNo после этого Me.Dirty = ложно Закончитесь если Закончите подводную лодку