如何让焦点回到原控件上？

goto2008 · 发表于 2009-12-7 12:59:13

本帖最后由 goto2008 于 2009-12-7 14:06 编辑

点“添加”按扭，在“单号”文本框的更新后事件写以下代码，为的是不让单号重复。
当我回答“确定”后，焦点就马上跳到了下一个控件里了，
如何让焦点还是停留在原“单号”这个文本框里了？

If Nz([单号]) = Nz(DLookup("[单号]", "表1", "[单号]=" & "'" & 单号& "'")) Then
MsgBox "您输入的单号已存在，请重新输入！", vbExclamation, "信息提示"
Me.单号 = Null
End If

todaynew · 发表于 2009-12-7 13:13:12

If Nz([单号]) = Nz(DLookup("[单号]", "表1", "[单号]=" & "'" & 单号& "'")) Then
MsgBox "您输入的单号已存在，请重新输入！"
Me.单号.value = Null
Me.单号.SetFocus
End If

ximan · 发表于 2009-12-7 13:23:21

学习了

goto2008 · 发表于 2009-12-7 13:26:43

本帖最后由 goto2008 于 2009-12-7 14:05 编辑

不行哦。。。。。

ximan · 发表于 2009-12-7 13:35:29

end if
Me.单号.SetFocus
试试

goto2008 · 发表于 2009-12-7 13:36:53

也不行哦。。

wanshan · 发表于 2009-12-7 13:39:49

退出事件中写：
If Nz([单号]) = Nz(DLookup("[单号]", "表1", "[单号]=" & "'" & 单号& "'")) Then
      MsgBox "您输入的单号已存在，请重新输入！", vbExclamation, "信息提示"
      Me.单号 = Null
      cancel=true
End If

goto2008 · 发表于 2009-12-7 13:43:43

退出事件中写：
If Nz([单号]) = Nz(DLookup("[单号]", "表1", "[单号]=" & "'" & 单号& "'")) Then
MsgBox "您输入的单号已存在，请重新输入！", vbExclamation, "信息提示"
Me.单号 = Null ...
wanshan 发表于 2009-12-7 13:39

一打开窗体,马上去点击别的控件,不管三七二十一就先弹出对话框......汗....不可行哦..
.

ximan · 发表于 2009-12-7 14:00:48

师母啊，
你先把表里的这个单号去了行不行，改一改，再试试，再不行，找我师傅。呵呵

wanshan · 发表于 2009-12-7 14:21:10

If DCount("[单号]", "表1", "[单号]=" & "'" & 单号 & "'") > 0 And Not IsNull([单号]) Then
      MsgBox "您输入的单号已存在，请重新输入！"
      Me.单号 = Null
      Cancel = True
End If

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何让焦点回到原控件上？

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)