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

goto2008

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

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

goto2008

谢谢chaojianan和 todaynew ，焦点没问题了。。。

goto2008

谢谢chaojianan和 todaynew ，焦点没问题了。。。

chaojianan

Private Sub µ¥ºÅ_AfterUpdate()
If Nz([µ¥ºÅ]) = Nz(DLookup("[µ¥ºÅ]", "±í1", "[µ¥ºÅ]=" & "'" & µ¥ºÅ & "'")) Then
    MsgBox "ÄúÊäÈëµÄµ¥ºÅÒÑ´æÔÚ£¬ÇëÖØÐÂÊäÈ룡"
          Me.µ¥ºÅ = Null
          Me.»õºÅ.SetFocus
          Me.µ¥ºÅ.SetFocus
   
End If
End Sub

chaojianan

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

chaojianan

Private Sub µ¥ºÅ_AfterUpdate()
If Nz([µ¥ºÅ]) = Nz(DLookup("[µ¥ºÅ]", "±í1", "[µ¥ºÅ]=" & "'" & µ¥ºÅ & "'")) Then
    MsgBox "ÄúÊäÈëµÄµ¥ºÅÒÑ´æÔÚ£¬ÇëÖØÐÂÊäÈ룡"
          Me.µ¥ºÅ = Null
          Me.»õºÅ.SetFocus
          Me.µ¥ºÅ.SetFocus
   
End If
End Sub

todaynew

不行哦。。。。。
goto2008 发表于 2009-12-7 13:26

可用更改事件：
Private Sub 单号_Change()
Me.Form.Requery
Me.单号.SelStart = Len(Nz(单号, ""))
If Nz([单号]) = Nz(DLookup("[单号]", "表1", "[单号]=" & "'" & 单号 & "'")) Then
    MsgBox "您输入的单号已存在，请重新输入！"
    Me.单号 = Null
End If
End Sub

wanshan

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

ximan

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

goto2008

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

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