请教一下两段代码的问题！

gkx219

我写的两段代码都有点问题，请高手帮忙改一下。

第一段如下，只能执行更新为所有人员退休时间+18250。而不是按情况分类更新。不知道哪里还有问题？请教一下！


Private Sub Form_Open(Cancel As Integer)
   If Not IsNull(退休时间) Then Exit Sub
      If Me.性别 = "女" Then
        If Me.人员分类 = "工勤人员" Then
            DoCmd.RunSQL "UPDATE 退休员工信息表 SET 退休员工信息表.退休时间 = [出生日期]+18250;"
        Else
            DoCmd.RunSQL "UPDATE 退休员工信息表 SET 退休员工信息表.退休时间 = [出生日期]+20075;"
        End If
    Else
        DoCmd.RunSQL "UPDATE 退休员工信息表 SET 退休员工信息表.退休时间 = [出生日期]+21900;"
    End If
End Sub

第二段如下：

Private Sub 员工编号_AfterUpdate()
   
   With CodeContextObject
   
    rrr = "[员工信息表]![员工编号]=" & (Me![员工编号])
   
    DoCmd.ApplyFilter "uuu", rrr
   
    If (.RecordsetClone.RecordCount > 0) Then
   
      MsgBox "该员工编号已存在,请重新输入!", vbOKOnly, "编号重复提示"
      
      [员工编号].SetFocus
    End If
  End With
End Sub

运行时提示错误 2501  ApplyFilter操作被取消

谢谢了！

hi-wzj

而不是按情况分类更新  怎么按情况分类更新?
放例子上来吧.

gkx219

附件是数据库,请看看

第二段代码是想让自动提醒员工编号重复,是按书上做的,却说"A……"这个操作被取消了,(单词没有打完整)

gkx219

请看看