Office中国论坛/Access中国论坛

标题: ACCESS从路径中抓图片的方法如下 [打印本页]

作者: nylgwsf9 时间: 2006-11-14 01:59
标题: ACCESS从路径中抓图片的方法如下
从路径中抓图片的方法如下:路径根据表中设置去抓.

Private Sub PicLoad()
Dim fs, f_exist, path As String
path = DLookup("value", "emp_parameter", "id=2")
Set fs = CreateObject("Scripting.FileSystemObject")
f_exist = fs.FileExists(path & Me.pic)
If f_exist Then
      Me.PicList.Visible = True
      Me.PicList.Picture = path & Me.pic
Else
      Me.PicList.Visible = False
End If
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)