Access表单Image控件能否设置本地/文件共享替代图片路径？

要实现你需要的「本地优先、共享兜底」的图片加载逻辑，仅靠表达式生成器无法完成，得通过自定义VBA函数处理文件存在性判断，具体步骤如下：

1. 创建自定义VBA函数 #

打开Access按Alt+F11进入VBA编辑器，插入一个标准模块（非类模块），粘贴以下代码：

Function GetImagePath(strLocalPath As String, strSharedPath As String, strIdent As String) As String
    Dim strLocalFile As String
    Dim strSharedFile As String
    
    ' 拼接完整的本地/共享图片路径
    strLocalFile = strLocalPath & strIdent & ".png"
    strSharedFile = strSharedPath & strIdent & ".png"
    
    ' 优先检查本地文件
    If Dir(strLocalFile) <> "" Then
        GetImagePath = strLocalFile
    Else
        ' 本地无文件则返回共享路径
        GetImagePath = strSharedFile
    End If
End Function

保存模块（比如命名为modImagePaths），确保模块为全局可见（默认状态即可）。

2. 修改Image控件的Control Source #

把原来的表达式替换成调用该函数的语句，将示例中的共享路径替换为你的实际共享文件夹地址：

=GetImagePath([Forms]![Items]![Settings]![ImageFolder], "\\你的共享服务器\图片共享目录", [Ident])

额外优化建议 #

如果想减少手动复制新图片的繁琐操作，可以在函数中添加自动同步逻辑——当本地缺失图片时，自动从共享路径复制到本地文件夹，下次打开就能直接加载本地文件。修改后的函数如下：

Function GetImagePath(strLocalPath As String, strSharedPath As String, strIdent As String) As String
    Dim strLocalFile As String
    Dim strSharedFile As String
    
    strLocalFile = strLocalPath & strIdent & ".png"
    strSharedFile = strSharedPath & strIdent & ".png"
    
    If Dir(strLocalFile) <> "" Then
        GetImagePath = strLocalFile
    Else
        ' 本地无文件时，尝试从共享路径复制
        If Dir(strSharedFile) <> "" Then
            FileCopy strSharedFile, strLocalFile
        End If
        ' 复制成功则用本地路径，失败则继续用共享路径
        GetImagePath = IIf(Dir(strLocalFile) <> "", strLocalFile, strSharedFile)
    End If
End Function

注意：使用这个优化版本时，需确保用户拥有本地文件夹的写入权限，以及共享路径的读取权限。

内容的提问来源于stack exchange，提问作者Tomaz