ACCESS从路径中抓图片的方法如下

nylgwsf9

从路径中抓图片的方法如下:路径根据表中设置去抓.

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