Question

access2010中VB调试出现错误52，该如何解决？

Option Compare Database
Private Sub Form_Current()
Dim PhotoPath As String
PhotoPath = CurrentProject.Path & "\数据库用图\" & Me![图像拓片] & ".png"
If Dir(PhotoPath) = "" Then PhotoPath = CurrentProject.Path & "\1.png"
Me.Image154.Picture = PhotoPath
End Sub
代码如上，显示If Dir(PhotoPath) = "" 有问题





Answer 1

我有三条建议:

1、 ="" 这个说法经常出问题,建议你用 isnull() 是个函数试一下，
IsNull指任务类型变量是否为空包括对象类型的变量。
IsNull函数：
功能：返回Boolean的值，指明表达是否不包含任何有效数据。NULL表示的是数据值未知或不可用，它不表示零（数字值或二进制值）、零长度的字符串或空白（字符值）。
IsEmpty函数：
功能：用于判断一个变量是否已初始化，如果变量未初始化或显式地设置为Empty，则函数IsEmpty返回True；否则函数返回False。

2、黄色处的判断不可能是 空的，至少是 \数据库用图\Me![图像拓片].png，所以这里判断它能否准确做出分支来？

3、上面打得太多了，忘记了，岁数大了555

追问

谢谢，代码似乎没有问题了。但是切换到窗体视图时出现这个，还是不能实现一条记录一张图片。本人access还在入门中，所以问题出在哪儿都不知道，还望详细说明，感激不尽。

追答

dir(photopath) = isnull 应该写成
isnull(dir(photopath))
置于后面的这个解图,我还在研究!

Answer 2

截图

追问

已发截图