Ms access 运行时间错误2115

在MS Access中的BeforeUpdate过程中执行数据验证时出现运行时错误2115。 在这里：

更新控件时无法更新它

但您可以在以下情况下进行：

Private Sub Option_AfterUpdate()

  If Option = A Then
    Answer = MsgBox("You mean B?", vbYesNo)
    If Answer = vbYes Then
      Option = B
    End If
  End If

End Sub

Option = B

Private Sub Option_AfterUpdate()

  If Option = A Then
    Answer = MsgBox("You mean B?", vbYesNo)
    If Answer = vbYes Then
      Option = B
    End If
  End If

End Sub