Private Sub Form_Current()
  Dim 路径名 As String
  
      Forms!frm_rqLCMOQC!照片图像.Picture = ""                                    '先清除图像
      Forms!frm_rqLCMOQC!错误信息.Caption = ""                                    '清除错误信息
   
    If Not Me.NewRecord Then                                    '如果当前不为新记录
       路径名 = Me!照片文件夹路径 & Me!tcdh & ".jpg"          '生成照片路径名
        Forms!frm_rqLCMOQC!照片图像.Picture = ""                                '清除图像
        If Dir(路径名) <> "" Then                               '判断照片是否存在，如果照片存在
            Forms!frm_rqLCMOQC!照片图像.Picture = 路径名                        '将图片加载到图像控件
        Else                                                    '如果文件不存在
           Forms!frm_rqLCMOQC!错误信息.Caption = "照片未找到。"                '显示错误信息
        End If
    End If
   End Sub
Private Sub Form_Load()
 Me!照片文件夹路径 = CurrentProject.Path & "\图片\"
 '不允许删除、添加、修改
 Me.AllowAdditions = False
 Me.AllowEdits = False
 Me.AllowDeletions = False
 
End Sub
这个代码这能放图片和ACCESS文件放在同一个文件了，怎么才能把图片文件夹放在公共盘了，ACCESS谁边放在都能访问这些图片