Office中国论坛/Access中国论坛

标题: [求助]VBA [打印本页]

作者: rocsmith 时间: 2004-12-13 19:42
标题: [求助]VBA
我想实现这样一个功能：我的表中，文件名的字段是超链接。

我想在窗体上通过一个按钮，点击后获得所选择的文件的路径+文件名作为名称的超链接。

想问下VBA如何实现阿？

我以前是用delphi的，那个是用opendialog实现读取文件名，然后

文本框的caption ,或者 TXT的属性就是文件名。

我没学过VBA。请问如何实现？？？谢谢

作者: 情比金坚 时间: 2004-12-13 21:12
Private Sub lst问列表_Click()

  Dim s As String



  s = Nz(DLookup("例", "tabData", "[ID] =" & lst问列表.Value))





  If s <> "" Then

lab例.Caption = CurrentProject.Path + "\DATA\" + s

  Else

lab例.Caption = ""

  End If



  lab例.HyperlinkAddress = lab例.Caption





End Sub

[此贴子已经被作者于2004-12-13 14:54:07编辑过]

作者: rocsmith 时间: 2004-12-14 16:57
问列表？？是个控件还是个按钮的名称？？？还有，我很多activeX控件都不能用[em06]

作者: 情比金坚 时间: 2004-12-14 21:40
在这里是个列表框的名字，很多ActiveX控件是要注册才能使用的。

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