求助：请帮我看看此窗体

brothers

请哪位老师帮我看一看此程序，我是刚学，借鉴了别人的东西，却将自己搞晕了，请哪位帮我分析一下，找出错误所在，最好能另写一文档，指出我的错误所在。谢谢了！

一是在右侧查询子窗体中选中一行，能在左侧修改表中显示，点击“修改记录”能保存
二是当修改子窗体中人员状态为“死亡”时，死亡日期为可修改，否则为不可修改。
三是程序总是提示我查询子窗体中代码有错误。可我实在查找不出来。
四是“清除”键的代码好象有错误。
并请各位老师帮我查找一下其它错误，再谢！

82077802

Private Sub Form_Current()

    If Me.NewRecord = True Then
        Me.Form.AllowEdits = True
    Else
        Me.Form.AllowEdits = False
    End If
   
End Sub