需要执行一个删除查询，
或执行如下语句：
docmd.runsql "delete * from 表2 INNER JOIN 表1 ON 表2.姓名 = 表1.姓名 WHERE 表1.进度 = True "
