怎么光标还是移到了下个控件?

不务实　发表于：2009-07-05 16:55:33 　

If DCount("[ID]", "ZZ") > 1 Then
MsgBox "编号不唯一,请重新编号!", vbExclamation, "编号必须唯一"
Me.ID.SetFocus 我要光标还在ID控件上,现在怎么还是移到下一控件了?
Me.ID = Null
Exit Sub
End If

Top

点燃一支烟发表于：2009-07-05 17:00:31

你是写在那个触发事件里面啊？很可能焦点的移动跟你选择的触发响应事件本身就有矛盾

Top

点燃一支烟发表于：2009-07-05 17:02:16

估计你十有八九是写在更新后事件里面

Top

白发学者发表于：2009-07-05 17:46:03

把附件贴出来可以更快、准的得到别人的帮助，

否则别人就只能是用估计来帮助你。

Top

不务实发表于：2009-07-05 19:36:05

就是的ID文本框更新后,

更新后不能用?怎样解决?

Top

善裕发表于：2009-07-05 21:03:43

我为你做了个示例已解决了两个问题,问题一,你要使编号唯一,应用以下这个函数来判断,问题二,已使光标返回ID上并清空,请学习吧

点击下载此附件

Top

点燃一支烟发表于：2009-07-06 08:44:24

Private Sub ID_BeforeUpdate(Cancel As Integer)
If Me.ID = Nz(DLookup("ID", "表1", "ID='" & Me.ID & "'")) Then

     MsgBox "编号不唯一,请重新编号！", vbCritical, "输入错误！"
     Cancel = True
    End If
End Sub

Top

点燃一支烟发表于：2009-07-06 08:45:16

更新前事件写就可以了

Top

不务实发表于：2009-07-06 10:22:01

我明白了,是不能写到更新的事件里,我也改了事前事件了,不过看了yxcsy的,还是有办法要到我更新事件的方法

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

怎么光标还是移到了下个控件?