使用DLookup时遇空值及运行时错误3464，请求技术协助

嘿，我来帮你搞定这个问题！你遇到的**运行时错误3464（类型不匹配）**和DLookup返回空值的问题，根源是代码里的条件参数没有正确引用变量，还犯了数值型字段加引号的小错误，一步步来修正：

问题分析 #

你原来的代码里，DLookup的条件写的是：

val = DLookup("Ser_charge", "Service_Charges", "Service_Type='sert' AND Engine_power = 'engp'")

这里有两个关键问题：

• 把变量名sert和engp当成了字符串字面量：Access会去查找Service_Type等于"sert"、Engine_power等于"engp"的记录，而不是你实际选中的服务类型和输入的发动机功率
• 数值型字段加了单引号：Engine_power是数值类型（你定义的engp是Double），给它加单引号会导致类型不匹配，这就是错误3464的直接原因

修正后的代码 #

把变量正确拼接到条件里，文本型字段用单引号包裹变量，数值型字段直接使用变量：

Dim val As Double
Dim sert As String
Dim engp As Double

sert = Me.Service_Type.Value
engp = Me.Engine_Power.Value

' 正确拼接条件参数：文本字段套单引号，数值字段直接写变量
val = DLookup("Ser_charge", "Service_Charges", "Service_Type='" & sert & "' AND Engine_power = " & engp)

额外优化：处理无匹配数据的情况 #

如果没有找到对应记录，DLookup会返回Null，直接赋值给Double类型的val会触发新的错误，建议加个空值判断：

Dim val As Double
Dim sert As String
Dim engp As Double
Dim result As Variant ' 用Variant接收DLookup结果，避免Null赋值错误

sert = Me.Service_Type.Value
engp = Me.Engine_Power.Value

result = DLookup("Ser_charge", "Service_Charges", "Service_Type='" & sert & "' AND Engine_power = " & engp)

If Not IsNull(result) Then
    val = result
    ' 可以把val赋值给目标文本框，比如：Me.Target_Textbox.Value = val
Else
    ' 无匹配时的处理，比如设默认值或提示用户
    val = 0
    MsgBox "未找到对应服务费数据，请检查输入！"
End If

最后检查要点 #

• 确认Service_Charges表的字段名完全正确：比如是Engine_power还是Engine_Power（Access不区分大小写，但尽量和表中一致）
• 检查下拉框Service_Type的选项值和表中Service_Type字段的内容是否一致（有没有多余空格或格式差异）
• 确认输入的Engine_Power数值在表中存在对应的记录

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