运行时错误'-2147352567（80020009）'：数据已更改

Question

我遇到一条弹出消息，上面写着“运行时错误'-2147352567（80020009）'：数据已被更改”。我试图简单地将输入的值转换为全部大写。代码如下所示：

If IsNumeric(Me.Results) = False Then

'Capatilizing the results field
Me.Results = UCase(Me.Results)

End If

一旦我点击调试，我就可以运行Private Sub Results_AfterUpdate（）并且它运行正常。我该如何避免这条消息？

我调试时会突出显示“Me.Results = UCase（Me.Results）”。

谢谢你，Adam