[求助]VBA

rocsmith

我想实现这样一个功能：我的表中，文件名的字段是超链接。

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



想问下VBA如何实现阿？

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

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

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

情比金坚

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

问列表？？是个控件还是个按钮的名称？？？还有，我很多activeX控件都不能用[em06]

情比金坚

在这里是个列表框的名字，很多ActiveX控件是要注册才能使用的。