Not sure I understand why it isn't working, but then again, I do not have access to your database to review your queries and other VBA code.
But maybe something like this will work for your loop:
Code:
Dim myCount as Long
Dim i as Long
' Get total cound of matched records we need to process for loop counter
myCount=DCount("*","sqrCompare_Parts_Method_1st")
' Return count (just in testing, for your own piece of mind!)
MsgBox myCount
' Create a loop to run your macro the number of times determined in our count
For i = 1 to myCount
DoCmd.RunMacro mcrComparedPartsRepeated
Next i