Office中国论坛/Access中国论坛

标题: 请教斑竹 [打印本页]

作者: ccczzz 时间: 2004-11-14 06:13
标题: 请教斑竹
Private Sub 编号_AfterUpdate()

If Me.编号 = DLookup("编号", "编号", "编号='" & Me.[编号] & "'") Then

      MsgBox "编号有重复,请检查!    ", 32, "操作提示"



   编号.SetFocus





End If

End Sub

当输入重复编号后，能弹出消息框，按下[确定]按钮后，焦点不能落在[编号]文本框中，为什么？代码有错误码？谢谢

作者: swo 时间: 2004-11-14 07:02
me.setfous 或me.undo试试

作者: ccczzz 时间: 2004-11-14 07:35
me.undo可以，谢谢

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