Access Compile error: Type mismatch on SQL Recordset Query

Question

我一直在跟踪这个 SQL 查询记录集。如果我将查询注释掉，我不会收到类型不匹配错误，所以我相对有信心它在这个查询中。该查询在 Access 中的查询 window 中也工作得很好（没有将其放入 VBA 的引号）。在我的一生中，我无法弄清楚为什么我会收到编译错误：类型不匹配。它总是转到最后一个“&”。我想我在下面发布了所有相关代码。请帮忙？我确实打算最后将它移动到一个字符串变量，但我想先让它工作。

编辑：我可以通过进行如下所述的更改来解决类型不匹配问题。但是，现在我收到 424 错误。如果我将其输出到调试 window 并将输出粘贴到访问中的 SQL 查询 window，我会得到我期望的结果，但 VBA 不喜欢它出于某种原因。

Dim rs As DAO.Recordset

Dim FileNumber As String

FileNumber = Me.txtFileNumber

Set rs = "SELECT tblParentRecord.FileNumber, tblChildRecord.CombinedName " _

& " FROM tblParentRecord INNER JOIN tblChildRecord ON tblParentRecord.FileNumber = tblChildRecord.FileNumber " _

Added: & " WHERE (((tblParentRecord.FileNumber)= " & """" & Me.FileNumber & """" & ")) "

Removed:& " WHERE (((tblParentRecord.FileNumber) LIKE'" & FileNumber & "*" & "'))')

Answer 1

试试，

Dim rs As Recordset
Dim db As Database
Dim FileNumber As String
Set db = CurrentDb



FileNumber = Me.txtFileNumber

strSql = "SELECT tblParentRecord.FileNumber, tblChildRecord.CombinedName " _
  & " FROM tblParentRecord INNER JOIN tblChildRecord ON tblParentRecord.FileNumber = tblChildRecord.FileNumber " _
  & " WHERE tblParentRecord.FileNumber Like '" & FileNumber & "' "

Set rs = db.OpenRecordset(strSql)

Access Compile error: Type mismatch on SQL Recordset Query

Access Compile error: Type mismatch on SQL Recordset Query

sql

ms-access

vba

compiler-errors