Office中国论坛/Access中国论坛

标题: 请教一下两段代码的问题！ [打印本页]

作者: gkx219 时间: 2008-8-1 15:13
标题: 请教一下两段代码的问题！
我写的两段代码都有点问题，请高手帮忙改一下。

第一段如下，只能执行更新为所有人员退休时间+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 时间: 2008-8-1 16:28
而不是按情况分类更新怎么按情况分类更新?
放例子上来吧.

作者: gkx219 时间: 2008-8-1 19:25
标题: 关于第一代码代码的库
附件是数据库,请看看

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

作者: gkx219 时间: 2008-8-1 19:26
标题: 第二个的错误提示图片
请看看

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)