1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Private " notpretty " () Mensaje dévil como secuencia rstAppt dévil como DAO.Recordset strSQL dévil como secuencia el strSQL = “SELECCIONA * de los tbl_APPTs DONDE CLIENT_ID = “” y Me.CLIENT_ID y “” Y APPT_ID = ““y Me.APPT_ID y”” “ Fijar el rstAppt = CurrentDb.OpenRecordset (strSQL, el dbOpenDynaset) ¿mensaje = MsgBox (“usted quiere suprimir esta cita? ”, vbYesNoCancel) Si mensaje = vbYes después 'Suprimir esta cita DoCmd.Close, "", acSaveNo rstAppt.Delete Terminar si Si mensaje = vbNo después Me.Dirty = falso Terminar si Terminar el submarino