Office中国论坛/Access中国论坛

标题: SETFOCUS为什么不成功 [打印本页]

---

作者: DDTA    时间: 2009-3-10 23:46
标题: SETFOCUS为什么不成功
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    时间: 2009-3-11 00:06
用ME.UNDO就可以返回光标，为什么SETFOCUS就不行呢？

---

作者: Henry D. Sy    时间: 2009-3-11 07:04

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    时间: 2009-3-11 09:04
Else
Exit Sub多余

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3