在 MS-ACCESS VBA 中執行 DLOOKUP 失敗

Question

我在下面有一個 VBA 代碼，但是每次當我嘗試執行 VBA 代碼時，它都會在 [Dlookup] 上給我錯誤，我花了幾個小時試圖讓 Dlookup 正確，但沒有運氣。 感謝您是否可以查看它並為我提供一些見解或解決方案。 謝謝。

Sub Quality()
Dim Sql As String    

StrDate = InputBox("YYYY/MM/DD")
Sql = "Insert Into Roster_QC Select dbo_Recipients.[UniqueID] AS [UID], 
DLookUp("[Address1]", "dbo_NamesAndAddresses",  "[PersonID]=' " & [UID] & " ' AND [PrimaryAddress]=1" ) AS [Address]…FROM…

WHERE…ORDER BY

CurrentDb.Execute Sql
DoCmd.OpenReport "RosterQC_Report", View:=acViewPreview
End Sub

此外，我已更改 Dlookup 如下

DLookUp(""[Address1]"", ""dbo_NamesAndAddresses"",  ""[PersonID]='" & [UID] & "' AND [PrimaryAddress]=1"" ) AS Address

這會導致錯誤 - [UID] 未定義外部名稱。

Answer 1

感謝@June7，加入 dbo_Recipients 和 dbo_NamesAndAddresses 解決了我的問題。