Runntime错误2115

Question

在MS Access中的BeforeUpdate过程中进行数据验证时获取运行时错误2115。 这里：

Private Sub Option_BeforeUpdate(Cancel As Integer)
  If Option = A Then
    Answer=MsgBox("You mean B?",vbYesNo)
    If Answer = vbYes Then
      Cancel = True
      Option = B
    End If
  End If
End Sub

Answer 1

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