1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Private " notpretty " () Messaggio fioco come stringa rstAppt fioco come DAO.Recordset strSQL fioco come stringa lo strSQL = “SELEZIONA * A PARTIRE dai tbl_APPTs DOVE CLIENT_ID = “„ & Me.CLIENT_ID & “„ E APPT_ID = ““& Me.APPT_ID &„„ “ Regolare il rstAppt = CurrentDb.OpenRecordset (strSQL, dbOpenDynaset) messaggio = MsgBox (“volete cancellare questo appuntamento? „, vbYesNoCancel) Se messaggio = vbYes allora 'Cancellare questo appuntamento DoCmd.Close, "", acSaveNo rstAppt.Delete Concluder se Se messaggio = vbNo allora Me.Dirty = falso Concluder se Concludere il sommergibile