Okay found it. However this involves queries, not macros.... So I don't think thats going to work.. However I have another idea...
Code:
If DCount("*", "sqCompare_Parts_Matched_1st") > 1 Then
msgbox "inside the if", , "Redbulls Idea!"
DoCmd.RunMacro "mcrComparedPartsRepeated", , ""
Do Until DCount("*", "sqCompare_Parts_Matched_1st") < 1
msgbox "Inside the Loop", , "Redbulls Idea!"
Loop
msgbox "outside the loop", , "Redbulls Idea!"
End If
msgbox "outside the IF", , "Redbulls Idea!"
Okay, so run that... tell me what message box you see.. If you see the following, then the code currently in place should work.
Inside the if
Inside the Loop
Inside the If
inside the loop
However I think you are going to see this.....
Inside the if
Inside the Loop
Inside the Loop
Inside the Loop
Inside the Loop
Inside the Loop
If you see the message boxes as above, use the code below.
Code:
If DCount("*", "sqCompare_Parts_Matched_1st") > 1 Then
DoCmd.RunMacro "mcrComparedPartsRepeated", , ""
Do Until DCount("*", "sqCompare_Parts_Matched_1st") < 1
DoCmd.RunMacro "mcrComparedPartsRepeated", , ""
Loop
End If
If you see this
Inside the if
Inside the Loop
Outside the if
Then there might be an issue with the if statement holding true while in full speed mode.
------------------
If you get something else with those message boxes let me know.. basically we just need to nail down where to put the runmacro command. The wife is gone this evening so I'm free to assist.