Question

我需要帮助。我在工作中使用Access 2007。

我不断收到运行时错误3464：条件表达式中的数据类型错误匹配。这工作正常，然后突然间没有。

我对原始代码进行了一些调整，但我仍然遇到错误。

请帮助，这非常令人沮丧！

Private Sub Loan__AfterUpdate()
Me.Refresh
Dim GetInfoCriteria As String
GetInfoCriteria = "[ACCOUNT_NUMBER] = '" & Screen.ActiveForm.Recordset.Fields("Loan#").Value & "'"
Debug.Print GetInfoCriteria

[Loan#] = DLookup("[ACCOUNT_NUMBER]", "tbl_GetInfo", GetInfoCriteria)

修改

这是我的旧代码，有一段时间了：

[Loan#] = DLookup("[ACCOUNT_NUMBER]", "tbl_GetInfo", "[ACCOUNT_NUMBER] = '" & Screen.ActiveForm.Recordset.Fields("Loan#").Value & "'")

我有两个表，tbl_GetInfo和tbl_CE。使用表单frm_CE的用户填充tbl_CE。当用户将贷款＃输入frm_CE时，我希望它使用Dlookup从tbl_GetInfo获取此信息和其他信息并将其放入tbl_CE。我选择这一个字段作为示例，但还有其他字段将填充在同一个Sub中，这是完整的示例

Dim GetInfoCriteria As String
GetInfoCriteria = "[ACCOUNT_NUMBER] = '" & Screen.ActiveForm.Recordset.Fields("SLSLoan#").Value & "'"
Debug.Print GetInfoCriteria
'
[Loan#] = DLookup("[ACCOUNT_NUMBER]", "tbl_GetInfo", GetInfoCriteria)
[Inv] = DLookup("[INVESTOR_CODE]", "tbl_GetInfo", GetInfoCriteria)
[Name] = DLookup("[BORROWER_PRIMARY_NAME]", "tbl_GetInfo", GetInfoCriteria)
[Status] = DLookup("[LOAN_OTS_OVERALL_STATUS]", "tbl_GetInfo", GetInfoCriteria)

对不起，我希望有帮助

Answer 1

所以我通过写这样的方式来实现它：

[Loan#] = DLookup("[ACCOUNT_NUMBER]", "tbl_GetInfo", "[ACCOUNT_NUMBER] = " & Screen.ActiveForm.Recordset.Fields("Loan#").Value)

我认为Loan＃是一个数字，所以即使其他字段是文本或数字，它也需要像数字一样写。无论如何，谢谢，抱歉，这不是一个很容易描述的问题。

访问DLookup数据不匹配错误

1 个答案: