跨表检索字段数据：无法通过DLookup获取客户邮箱的技术问题

问题根源排查 #

你的代码存在3个关键问题，导致DLookup无法正确获取邮箱，同时代码执行会报错：

• DLookup关联字段错误：你用发票编号InvNo去匹配客户主表的CustomerName字段，逻辑完全错误，应该用表1（表单绑定的表）里的客户名称/客户ID字段去关联表2的对应字段。
• 文本字段条件未加单引号：如果CustomerName是文本类型，DLookup的条件字符串必须用单引号包裹，否则Access会将其识别为数字，导致匹配失败。
• 字符串拼接语法错误：邮件内容拼接时多了一个逗号，且InvNo变量未声明赋值。

修正后的完整代码 #

Dim Msg As String
Dim EmailRecTo As String
Dim InvNo As String
Dim O As Outlook.Application
Dim M As Outlook.MailItem

' 获取当前表单的发票编号和客户名称（假设表单有CustomerName控件，对应表1的客户字段）
InvNo = Forms!CusPenInv!InvNo.Value
Dim customerName As String
customerName = Forms!CusPenInv!CustomerName.Value

' 修正DLookup：用客户名称匹配，文本字段加单引号
EmailRecTo = DLookup("CustomerEmails", "CustomersMasterData", "CustomerName='" & customerName & "'")

' 处理DLookup返回空值的情况
If IsNull(EmailRecTo) Then
    MsgBox "未找到该客户的邮箱地址", vbExclamation
    Exit Sub
End If

Set O = New Outlook.Application
Set M = O.CreateItem(olMailItem)

' 修正邮件内容拼接语法
Msg = "Dear Customer," & "<P>" & "You have pending invoice number " & InvNo

With M
    .BodyFormat = olFormatHTML
    .HTMLBody = Msg
    .To = EmailRecTo
    .Subject = "Pending Invoices"
    .Display
End With

Set M = Nothing
Set O = Nothing

额外注意事项 #

1. 确保表单CusPenInv上有CustomerName控件，且该控件绑定的是表1中存储客户名称的字段，这样才能和表2的CustomerName关联。
2. 如果表1和表2用客户ID（数字类型）关联，DLookup的条件可以改成："CustomerID=" & Forms!CusPenInv!CustomerID.Value（数字类型不需要单引号）。
3. 增加了空值判断，避免找不到邮箱时邮件收件人为空的情况。

内容的提问来源于stack exchange，提问作者Faisal