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

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

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

goto2008

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

goto2008

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