access2010 ナビゲーションフォーム その2

サブフォームのOpen/Unload時のCancelに注意
トグルを読んでCancel=TrueになりOpenがキャンセルされサブフォームは開きません。

トグルをFalseにしてサブフォームを開く

トグルをTrueにして別のサブフォームに遷移
Unload時Cancelが聞かず画面遷移します。
バグなのか仕様なのか不明だ


Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Close form?", vbYesNo) = vbYes Then
        Me.Parent.EventAction = Me.Name & ":Form_Unload"
        Exit Sub
    Else
        Cancel = Me.Parent.toggle01
        Me.Parent.EventAction = Me.Name & ":Form_Unload:Cancel"
    End If
End Sub
Unload時のCancelができない状態