1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Private SubcmdCancel_Click () Schemerig bericht als Koord Schemerige rstAppt als DAO.Recordset Schemerige strSQL als Koord strSQL = „SELECTEER * UIT tbl_APPTs WAAR CLIENT_ID = „“ & Me.CLIENT_ID & „“ EN APPT_ID = „„& Me.APPT_ID &““ „ Plaats rstAppt = CurrentDb.OpenRecordset (strSQL, dbOpenDynaset) bericht = MsgBox („wilt u deze benoeming schrappen? “, vbYesNoCancel) Als bericht = vbYes toen 'Schrap deze benoeming DoCmd.Close, "", acSaveNo rstAppt.Delete Eind als Als bericht = vbNo toen Me.Dirty = Vals Eind als Sub van het eind