路径问题

蓝海　发表于：2013-11-30 12:41:02 　

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 & "\图片\"

End Sub
这个代码这能放图片和ACCESS文件放在同一个文件了，怎么才能把图片文件夹放在公共盘了，ACCESS随便放在都能访问这些图片

Top

123木头人发表于：2013-11-30 15:36:50

CurrentProject.Pathr是当前数据库的存放路径，你要要多人共享，就要换成网络地址，如："\\192.168.0.2\图片\"，要确保这个地址在网络上能访问。

Top

蓝海发表于：2013-12-02 16:16:07

试过了不行！只要数据库文件和图片文件夹不在一个目录下，就看不到图片。

Top

123木头人发表于：2013-12-02 20:52:13

你原来的是：Me!照片文件夹路径 = CurrentProject.Path & "\图片\"

我建议你改的是：Me!照片文件夹路径 ="\\192.168.0.2\图片\"

你试一下，如果不行，你把你改的代码贴出来看一下。

Top

浪淘沙发表于：2013-12-03 23:57:39

CurrentProject.Path & "\图片\" 顾名思义是在当前运行的工程所在位置的路径下找图片文件夹，每个客户端都这样找，岂不矛盾？"\\192.168.0.2\图片\"是绝对路径，就像网址一样，在网内都可以访问，前提要把图片文件夹共享打开。

Top

fresun 发表于：2013-12-05 09:19:19

如果想找硬盘上任意地方的照片，怎么写路径。

就是图片的位置可以选择的那种

Top

李制樯发表于：2013-12-06 20:51:58

加一图片控件，加载图片，查看属性中的图片地址‘’

Top

wlh 发表于：2013-12-09 22:56:17

选择路径：

Dim fd As Object
Dim strPath As String
Set fd = Application.FileDialog(1)
With fd
.AllowMultiSelect = False
.Show
End With
If fd.SelectedItems.Count > 0 Then
strPath = fd.SelectedItems(1)

end if

strPath中存放的即为你所选择的图片的位置和文件名

Top

殷小宝发表于：2013-12-10 21:53:32

随便放哪个盘里都行，路径名就要写具体的路径名了，比如：Me!照片文件夹路径 =“D:\图片\"

Top

赵文斌发表于：2013-12-14 16:05:41

直接存在数据库里

Top

总记录：9篇页次：1/1 9 1 :

Access交流中心

[5分]路径问题