××给100分！！××请教一个基本的错误处理问题：loadpicture函数

Question

If isnull(Rs("物业图片路径")) Then
                MsgBox "该物业图片不存在,请以管理员身份登陆后重新指定"
            Else
                Image1.Picture = LoadPicture(Rs("物业图片路径"))
            End If

Answer 1

If isnull(Rs("物业图片路径")) Then
                MsgBox "该物业图片不存在,请以管理员身份登陆后重新指定"
            Else
                Str_pic = CStr(Rs("物业图片路径"))
                Image1.Picture = LoadPicture(Rs("物业图片路径"))
            End If

Answer 2

RS是什么函数？你设一下断点看看是不是rs的返回值不是NUll,或者用下面的代码试一下
On Error GoTo error1
你的程序error1:
MsgBox Err.Number
Exit Sub
程序出错后记住err.Number然后改为
On Error GoTo error1
你的程序error1:If Err.Number = 刚才记下的编号 Then
MsgBox "图片不存在"

Answer 3

你为什么不这样：
       Str_pic = CStr(Rs("物业图片路径"))
       IF Str_pic<>"" then
         IF Dir(Str_pic)<>"" then     
           Image1.Picture = LoadPicture(Rs("物业图片路径"))
         Else  
            MsgBox "该物业图片不存在,请以管理员身份登陆后重新指定"
         End IF
        End IF
对于ACCESS2000的NULL真是不敢恭维，用上它以后不知道什么时候就报错！:(

Answer 4

是啊
是不是NULL得用ISNULL去判断