如何在人事档案窗体中显照片？

李锋　发表于：2013-03-13 02:16:34 　

我在UMV平台中的人事档案编程中用附件方法显示照片，如果照片文件在AccDev的下级目录中可行。但后台程序放在另一计算机上就出错了。原因是程序有问题。

If Dir(Application.CurrentProject.Path & "\photo\" & Me.学号 & ".jpg") <> "" Then
Me.Image1.Picture = Application.CurrentProject.Path & "\photo\" & Me.学号 & ".jpg"
Else
Me.Image1.Picture = Application.CurrentProject.Path & "\photo\no.jpg"
End If

附件

现请教如何解决？

Top

杜超-2号发表于：2013-03-13 08:36:03

【Access源码示例】同一个产品上传多个附件示例[Access软件网]

http://www.accessoft.com/article-show.asp?id=7099

【access源码示例】同一个产品上传多个图片示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=7063

Top

殷小宝发表于：2013-03-13 17:39:00

判断局域网中是否存在共享的文件或者文件夹使用dir是无效的，还有局域网中不需要application，你可以参照以下的代码测试一下，具体的局域网路径请根据自己的实际情况更换。

if bExistsFolder("\\192.168.1.101\photo\" & Me.活动主题 & ".jpg",2) =True Then
  Me.Image14.Picture = "\\192.168.1.101\photo\" & Me.活动主题 & ".jpg" end if '以下的函数先新建个模块，放在模块中。
'函数名称： bExistsFolder '功能描述： 判断文件夹或者文件是否存在
'输入参数： strPath 必需的,共享或者存放附件的文件夹或文件路径。 '                 iType  必需的,1代表文件夹,2代表文件
'返回参数： True或False '使用示例： bExistsFolder("\\192.168.1.10\共享文件夹\",1)              '判断文件夹 '                 bExistsFolder("\\192.168.1.10\共享文件夹\测试.txt",2)   '判断文件 '作      者： 金宇
'创建日期： 2012-05-30 Public Function bExistsFolder(strPath As String, iType As Integer) As Boolean Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Select Case iType Case 1 '文件夹
        If FSO.FolderExists(strPath) Then
            bExistsFolder = True
        End If
    Case 2  '文件 If FSO.FileExists(strPath) = True Then bExistsFolder = True End If Case Else MsgBox "参数传递错误!", vbCritical, "错误" Exit Function End Select Set FSO = Nothing End Function

Top

殷小宝发表于：2013-03-13 17:43:28

if bExistsFolder("\\192.168.1.101\photo\" & Me.活动主题 & ".jpg",2) =True Then
  Me.Image14.Picture = "\\192.168.1.101\photo\" & Me.活动主题 & ".jpg"

end if '以下的函数先新建个模块，放在模块中。
'函数名称： bExistsFolder

'功能描述： 判断文件夹或者文件是否存在
'输入参数： strPath 必需的,共享或者存放附件的文件夹或文件路径。

 'iType  必需的,1代表文件夹,2代表文件

'返回参数： True或False '使用示例： bExistsFolder("\\192.168.1.10\共享文件夹\",1)

 '判断文件夹 '    bExistsFolder("\\192.168.1.10\共享文件夹\测试.txt",2)

 '判断文件 '作      者： 金宇
'创建日期： 2012-05-30

Public Function bExistsFolder(strPath As String, iType As Integer) As Boolean

Dim FSO As Object

 Set FSO = CreateObject("Scripting.FileSystemObject")

Select Case iType Case 1 '文件夹
        If FSO.FolderExists(strPath) Then
            bExistsFolder = True
        End If
    Case 2  '文件

 If FSO.FileExists(strPath) = True Then

bExistsFolder = True

End If

 Case Else

MsgBox "参数传递错误!", vbCritical, "错误"

Exit Function

End Select

Set FSO = Nothing

End Function

Top

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

Access交流中心

[5分]如何在人事档案窗体中显照片？