如何获取Dlookup在Access 2010/2013中返回并显示超链接

如何获取Dlookup从设置为超链接的表字段中返回超链接，并在文本框中显示超链接？该文本框只返回给出的字符串作为超链接的名称，而不是表格字段中的实际超链接。当我单击文本框中显示的内容时，由于超链接仅为字符串名称，因此无法找到路径。我应该以不同的方式格式化Dlookup吗？我无法在Excel Vlookup函数以外的任何地方找到答案。我还没有在网络上找到一个如何做到这一点的例子。该文本框也被格式化为超链接。如何获取Dlookup在Access 2010/2013中返回并显示超链接

Private Sub Combo4_AfterUpdate() 
Dim CertNum As String 
Dim VendorYN As String 
CertNum = Me.Combo4.Value 
If IsNull(VendorYN = DLookup("[VendorCert]", "[Calibration Data]", "[Certificate Number] = " & CertNum & "")) Then 
     Me.Check10 = False 
    Else 
     Me.Check10 = True 
     Me.Text12 = "Vendor Certificate Of Calibration#VendorYN#" 
    End If 
End Sub

来源

2014-06-26 Mgogan

看看这个[link]（http://allenbrowne.com/casu-09.html）有帮助。 –

@OverMind - 感谢您的链接，但问题更多的是在Dlookup中。当我测试通过使msgbox显示VendorYN来查看Dlookup返回的内容时，它将返回空白或空值。所以我必须在我如何格式化Dlookup时错过一些东西。我试图把＃放在Dlookup的地方，但它也不喜欢这个。 – Mgogan

尝试'“[证书编号] =”＆CertNum' –

下面是我用什么：

Dim CertNum As String 
Dim VendorYN As String 

CertNum = 132 'I hardcoded 132 to avoid building a combobox control 

If IsNull(VendorYN = DLookup("[VendorCert]", "[Calibration Data]", "[Certificatio nNumber] = " & CertNum & "") = False Then 

Me.TestText = VendorYN 

Else 

MsgBox "No Value" 

End If

我也格式化的Me.TestText属性，在Data选项卡，Text Format，Rich Text上。

来源

2014-06-26 20:08:15

CerNum会不断变化，它基于另一个组合框选择。这对这个功能会有什么影响吗？ – Mgogan

这很好。你的代码不应该改变'CertNum'，如果它从'Combo4'给你正确的值。 –

好吧，那工作，并且返回正确的超链接。然后我设置了'Me.Text12'来显示VendorYN，它和之前一样。 – Mgogan

如何获取Dlookup在Access 2010/2013中返回并显示超链接

回答

相关问题