Question

使用SQL或VBA，我需要什么代码才能启动可以访问互联网或网络位置的超链接？表单有多个按钮，它们将1：1连接到表格中的第一列。表格中的第二列要么有一个＆＃34; http://www.internet.com/databases＆＃34;或＆＃34; \ network7 \ HH \ forms \ hrl \＆＃34;。

只有管理员才能访问该表，最终用户只能访问这些表单。这允许所有用户单击按钮并自动启动网站或网络位置，而无法编辑管理员可能具有的表格。

在＆＃34; OnClick＆＃34;中，我不能简单地键入＆＃34; FollowHyperlink（http://www._____），因为位置（写在表中）将每月更改，管理员将有0编码或技术背景。

按钮不会打开表格或向用户显示正在发生的事情，它只会启动链接并保持在同一屏幕上以允许他们点击另一个按钮

提前谢谢你，

JT 到目前为止我有：

Dim hyperlink As String

hyperlink = Nz((DLookup("Field2", "sources", "[Field1] = SAP"),"")

If Len(hyperlink) > 0 then 
    FollowHyperlink (hyperlink)
End If

Answer 1

您必须从表中获取数据，然后将其作为超链接打开。所以像这样：

Dim rs as recordset
Dim hyperlink as string

set rs = currentdb.openrecordset("Table")
    rs.movefirst
    hyperlink = rs![RelevantColumn]
rs.close
set rs = nothing

FollowHyperlink(hyperlink)

----------------------------------- EDIT

我们在评论中找到了最终解决方案：

Private Sub Criteria_Click() 
anything3 = DLookup("TargetField", "sources", "[CriteriaField] = 'Criteria'")
FollowHyperlink anything3
End Sub

Microsoft Access-通过表单上的按钮启动数据表中包含的超链接

1 个答案: