SETFOCUS为什么不成功

DDTA

Private Sub A_Exit(Cancel As Integer)
If IsNull(Me.A) Then
MsgBox "没有有效数据", vbOKOnly, "操作错误提示"
Me.A.SetFocus
Else
Exit Sub
End If
End Sub
看了罗斯文的例子也是这么写的，提示也有可是光标照样跑到了B，哪里错了？
谢谢！

DDTA

用ME.UNDO就可以返回光标，为什么SETFOCUS就不行呢？

Henry D. Sy

1. Private Sub A_Exit(Cancel As Integer)
   
2.     If IsNull(Me.A) Then
   
3.         MsgBox "没有有效数据", vbOKOnly, "操作错误提示"
   
4.         Cancel = True
   
5.         'Me.A.SetFocus
   
6.     End If
   
7. End Sub

复制代码

tz-chf

Else
Exit Sub多余