在Access 2013列表框中显示小预览图片单击

时间:2015-09-14 20:32:09

标签: vba ms-access access-vba

我有一个Access数据库,其中包含一个存储大量文件的表。我已经创建了一个表单来搜索各种关键词的文件。搜索后,结果显示在列表框中 - 以VBA编码。如果我双击特定结果,它将打开文件的路径(例如PDF文档)。我想这样做,如果我只点击一次特定的结果,它将在表格的角落显示一个小图片。我该怎么做呢?

1 个答案:

答案 0 :(得分:1)

假设路径名是文件或网站(或网站上的文档)的网址,或本地计算机上的某些文档?

假设列表框sql source是3列,

Id说明FullPathName

可能在上面,虽然列表框可能基于3列,但您可以隐藏用于驱动列表框的查询的id和FullPathName。

接下来,只需将网页控件放在上角并按照您想要的方式调整大小(Web控件非常理想,因为它会显示图片,网站,PDF,word文档以及您的计算机可以呈现的任何其他内容)。

然后在更新甚至列表框之后,使用此VBA代码:

  Private Sub List0_AfterUpdate()

     Dim s       As String

     s = "=(" & """" & Me.List0.Column(2) & """" & ")"

     Me.WebBrowser2.ControlSource = s

  End Sub