查找匹配的记录代码

Question

请检查下面的代码，这是构建找到MS Access的两个表之间不匹配的值（因为运行时错误3075查询表达式计数（table1.Inv_No]）”

公共子subCreateRowDiff（）

Dim strSQL As String 
Dim rs1 As DAO.Recordset 
Dim rs2 As DAO.Recordset 
Dim db As DAO.Database 
Dim lngCount As Long 

Const TEMP_TABLE As String = "tblNoMatch" 

strSQL = "SELECT table1.[Inv_No], table1.[Amt], Count(table1.Inv_No]) As Expr1 GROUP BY table1.[Inv_No], table1.[Amt];" 
Set db = CurrentDb 

'remove all records 
db.Execute "DELETE " & TEMP_TABLE & ".* FROM " & TEMP_TABLE & ";" 
'open table1 
Set rs1 = db.OpenRecordset(strSQL) 
strSQL = Replace(strSQL, "table1", "table2") 
'open table2 
Set rs2 = db.OpenRecordset(strSQL) 
'check for difference 
With rs1 
    If Not (.BOF And .EOF) Then .MoveFirst 
    While Not .EOF 
     lngCount = .Fields(2).Value 'the count field 
     'find matching record in table2 
     rs2.FindFirst "[Inv_No] = " & .Fields(0) & " AND [Amt] = " & .Fields(1).Value 
     If rs2.NoMatch Then 
      'save this record as many times (lngCount) 
      While lngCount <> 0 
       db.Execute "Insert Into " & TEMP_TABLE & "(Inv_No, Amt) " & _ 
          "Values(" & .Fields(0).Value & ", " & .Fields(1) & ");" 
       lngCount = lngCount - 1 
      Wend 
     Else 
      ' there is a match 
      ' check the difference 
      If .Fields(2).Value > rs2.Fields(2).Value Then 
       lngCount = .Fields(2).Value - rs2.Fields(2).Value 
      Else 
       lngCount = rs2.Fields(2).Value - .Fields(2).Value 
      End If 
      While lngCount <> 0 
       db.Execute "Insert Into " & TEMP_TABLE & "(Inv_No, Amt) " & _ 
          "Values(" & .Fields(0).Value & ", " & .Fields(1) & ");" 
       lngCount = lngCount - 1 
      Wend 
     End If 
     .MoveNext 
    Wend 
End With 

' now use table2 as reference 
With rs2 
    If Not (.BOF And .EOF) Then .MoveFirst 
    While Not .EOF 
     lngCount = .Fields(2).Value 'the count field 
     'find matching record in table1 
     rs1.FindFirst "[Inv_No] = " & .Fields(0) & " AND [Amt] = " & .Fields(1).Value 
     If rs1.NoMatch Then 
      'save this record as many times (lngCount) 
      While lngCount <> 0 
       db.Execute "Insert Into " & TEMP_TABLE & "(Inv_No, Amt) " & _ 
          "Values(" & .Fields(0).Value & ", " & .Fields(1) & ");" 
       lngCount = lngCount - 1 
      Wend 
     Else 
      ' we already did this before 
      ' so no need 
     End If 
     .MoveNext 
    Wend 
End With 
rs1.Close: Set rs1 = Nothing 
rs2.Close: Set rs2 = Nothing 
Set db = Nothing 

末次

Answer 1

缺少一个左括号[不需要做任何括号在这个SQL语句，因为表名和字段名没有空格。