这样的查询能否在一个SQL语句中实现？

做两个查询即可！

Private Sub 命令0_Click()

    ''' 将符合条件的记录追加到 表2。
    DoCmd.RunSQL "INSERT INTO 表2 SELECT 表1.* FROM 表1 WHERE (((表1.字段1)=0))"
   
   
    ''' 将符合条件的记录赋值为 是 。
    DoCmd.RunSQL "UPDATE 表1 SET 表1.字段1 = -1 WHERE (((表1.字段1)=0))"

End Sub