に一致しないレコードコード

Question

を探すMSアクセスで2台の間に比類のない価値を見出すために、ビルドした下記のコード（クエリ式カウント（table1.Inv_No]で実行時エラー3075があるとして）」

公開をご確認くださいサブ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 

End Subの

Answer 1

左ブラケット[不足しているテーブル名やフィールド名にスペースを持っていないので。何ブラケットは、このSQL文では必要ありません。