Office中国论坛/Access中国论坛

标题: ＃如何替换这对用户莫名奇妙的提示？＃ [打印本页]

作者: eio 时间: 2003-1-15 06:39
标题: ＃如何替换这对用户莫名奇妙的提示？＃
[upload=gif]http://www.office-cn.net/vvb/uploadimages/20031142238860924.gif[/img]
替换成MSGBOX“XXXX重复使用！”

作者: cattjiu 时间: 2003-1-15 17:13
取得error()号码，然后对该错误号码设置msgbox

作者: eio 时间: 2003-1-15 21:43
如何取得取得error()号码？

作者: zhengjialon 时间: 2003-1-15 21:47
on error goto 11
……

exit sub
11: msgbox err.number

作者: eio 时间: 2003-1-15 22:01
这个错误提示一定是那个错误吗？

作者: zhengjialon 时间: 2003-1-16 00:30
应该是，不过我没试过。

作者: eio 时间: 2003-1-16 01:00
不能使用啊！

作者: zhengjialon 时间: 2003-1-16 01:04
仍然不能屏蔽系统提示吗？

作者: eio 时间: 2003-1-16 01:06
不能，就是屏蔽了，掩眼法又有何用？

作者: 李寻欢 时间: 2003-1-16 01:14
标题: 补充一下
on error goto 11
……

exit sub
11:
if err.number=3022 then
你想怎样做就怎样做了
end if

作者: zhengjialon 时间: 2003-1-16 01:17
呵呵，eio小姐，这下有用了吧？

作者: eio 时间: 2003-1-16 01:32
您怎样知道是3022的？

作者: zhengjialon 时间: 2003-1-16 01:33
用MSBOX试一下就知道了呗！

作者: eio 时间: 2003-1-16 01:39
是否
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo 11
Exit Sub
11:
If Err.Number = 3022 Then
End If
End Sub

作者: binbow_z 时间: 2003-1-16 04:36
在数据更新前检测一下，如果重复，则提示重复使用不就完了，用dlookup很简单
出错的原因是在设置了无重复安段（在表中有索引可重复不可重复）上试图写入一个重复值导致系统提示错误
数据更新前检测在精品推荐上有我做的例子

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