Private VorcmdCancel_Click ()
Schwache Mitteilung als Schnur
Schwaches rstAppt als DAO.Recordset
Schwaches strSQL als Schnur
strSQL = „VORWÄHLEN * von den tbl_APPTs QL, WO CLIENT_ID = „“ u. Me.CLIENT_ID u. „“ UND APPT_ID = „„u. Me.APPT_ID u.““ „
rstAppt = CurrentDb.OpenRecordset (strSQL, dbOpenDynaset) einstellen
Mitteilung = MsgBox („möchten Sie diese Verabredung löschen? “, vbYesNoCancel)
Wenn Mitteilung = vbYes dann
'Diese Verabredung löschen
DoCmd.Close, "", acSaveNo
rstAppt.Delete
Beenden wenn
Wenn Mitteilung = vbNo dann
Me.Dirty = falsch
Beenden wenn
Unterseeboot beenden
|