Question

“无效使用 Null”，调用存储过程中，给它的输入参数在数据库中不存在，就会报错，如图。

如何修改，使得报错不是这种提示，而是： MsgBox "用户名在数据库中不存在！或者未能成功连接数据库！", vbOKOnly, "错误提示"
OutUserName = Trim(adocomm.Parameters("@Czy_name").Value)
在这句话报错，给SQLSERVER赋值的时候，输入的@Czy_name在数据库中查询不到，就报错了。如何修改？

Answer 1

'加出错处理

sub abc()
on error goto Err1:

'你的语句

exit sub
Err1:
Msgbox ""
end sub

追问

加了以后，还是报错啊。怎么办？
求具体点：

追答

加了以后应该就是按你的需要报错了。而不是程序崩溃。
你在使用前应该先判断取得的值
if isnull(adocomm.Parameters("@Czy_name").Value) then
OutUserName = ""
else
OutUserName = Trim(adocomm.Parameters("@Czy_name").Value)
endif

或者
OutUserName = iif(isnull(adocomm.Parameters("@Czy_name").Value),“”,
Trim(adocomm.Parameters("@Czy_name").Value))