イベントの無効/有効を切り替える

■どうやらAccessではイベント制御はなさそう・・・

Flagを使って制御するしかなさそうだ。


Option Compare Database

Dim myEvent As Boolean

'--- ボタンのダブルクリック制御
Private Sub コマンド0_DblClick(Cancel As Integer)

　　' チェック1がチェックされている時だけ、下記処理を実行
　　If myEvent Then
　　　　MsgBox "DblClickイベント発生！"
　　End If
End Sub

Private Sub チェック1_AfterUpdate()
　　myEvent = Me.チェック1.Value
End Sub




■下記はエクセルのみでした・・・残念

Sub PaintOff()
　　Application.EnableEvents = False
End Sub