如何獲取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中返回並顯示超鏈接

回答

相關問題