ランタイムエラー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