Let me try to repost my solution at end of page below.<div><br></div><div><div>Select Case TestSlideOLDNEW.ACC</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Case "1"</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>If c.getattrib("StatusOldNew") = "Old" then</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>AccuracyDisplay=AccuracyDisplay+(c.getattrib("Points_HR"))'Hits</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Elseif c.getattrib("StatusOldNew") = "New" then</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>AccuracyDisplay=AccuracyDisplay+(c.getattrib("Points_CR"))'Correct Rejection</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Else MsgBox "Accuracy display case 1 error"</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>End if</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>c.setattrib "Accuracy", AccuracyDisplay</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Set x = CSlideText(TestSlideOLDNEW.States(TestSlideOLDNEW.ActiveState).Objects("Text4"))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>If Not x Is Nothing Then</div><div> <span class="Apple-tab-span" style="white-space:pre"> </span>x.Text = "Running Total: " & c.getattrib("Accuracy")</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>End if</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Debug.Print "Debug Points_HR: " & c.getattrib("Accuracy")</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Case "0"</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>AccuracyDisplay=AccuracyDisplay</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>c.setattrib "Accuracy", AccuracyDisplay</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Set x = CSlideText(TestSlideOLDNEW.States(TestSlideOLDNEW.ActiveState).Objects("Text4"))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>If Not x Is Nothing Then</div><div> <span class="Apple-tab-span" style="white-space:pre"> </span>x.Text = "Running Total: " & c.getattrib("Accuracy")</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>End if</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Debug.Print "Debug Incorrect Accuracy: " & c.getattrib("Accuracy")</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Case Else </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>MsgBox "TestSlideOLDNEW Accuracy Error"</div><div>End Select</div></div><div><br></div><div>Once again, sorry.</div><div><br></div><div>Caleb</div>
<p></p>
-- <br />
You received this message because you are subscribed to the Google Groups "E-Prime" group.<br />
To post to this group, send email to e-prime@googlegroups.com.<br />
To unsubscribe from this group, send email to e-prime+unsubscribe@googlegroups.com.<br />
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.<br />