title: run-time error '-2147352567 (80020009)': The data has been changed
body: <p>I am running into a pop-up message that reads "run-time error '-2147352567 (80020009)': The data has been changed". I am trying to simply convert the typed in value to all uppercase. The code looks like below:</p>
  
  <pre><code>If IsNumeric(Me.Results) = False Then
  
  'Capatilizing the results field
  Me.Results = UCase(Me.Results)
  
  End If
  </code></pre>
  
  <p>Once I hit debug, I am able to run the Private Sub Results_AfterUpdate() and it works just fine. How can I avoid this message?</p>
  
  <p>"Me.Results = UCase(Me.Results)" is highlighted when I debug.</p>
  
  <p>Thank you, Adam</p>