Find unmatched record and specify the field - sql

Question

I want your kind help to give a solution to match between two tables and return unmatched recorda with a field specify which field was unmatched.
Take a note that each table including more than 30 fields.

Answer 1

You can use recordsets but if your tables are long this might take a while. This is absolutely not optimized, but considering how little information you provided, I don't want to invest a whole lot of time.
I am assuming your tables are identical in structure, sorted identically, and have the same number of records. If not, feel free to adapt this however you see fit, but you should be able to get the idea of what I am doing.
It will output the field and row number of Table1 in the immediate window when a mismatch is found. You could also insert it into a temp table if you want to recover all of the field values, but again, I don't want to go that far. So this has limitations:
Public Function FindMisMatches(Table1 As String, Table2 As String)
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim i As Integer
Dim Row As Integer
On Error GoTo PROC_ERR
Set db = CurrentDb
Set rs1 = db.OpenRecordset(Table1, dbOpenSnapshot, dbReadOnly)
Set rs2 = db.OpenRecordset(Table2, dbOpenSnapshot, dbReadOnly)
rs1.MoveFirst
rs2.MoveFirst
Row = 1
Do Until rs1.EOF Or rs2.EOF
'Assuming both tables have identical structure
For i = 1 To rs1.Fields.Count - 1
If rs1.Fields(i).Value <> rs2.Fields(i).Value Then
Debug.Print "Mismatch in field " & rs1.Fields(i).Name & " on row " & Row
End If
Next i
rs1.MoveNext
rs2.MoveNext
Row = Row + 1
Loop
Debug.Print "End of recordset"
Set rs1 = Nothing
Set rs2 = Nothing
Set db = Nothing
Exit Function
PROC_ERR:
MsgBox "Error: " & Err.Number & "; " & Err.Description
Set rs1 = Nothing
Set rs2 = Nothing
Set db = Nothing
End Function