#459
フォームの"Open/開く時"イベントプロシージャを使うと、フォームを開くときにそのイベントをキャンセル、すなわちフォームを開かせないようにすることができます。
それには、そのイベントプロシージャ内のコードにおいて、開かせない条件に一致した場合に、イベントプロシージャの引数である「Cancel」にTrueを設定します。
次の例では、現在日付が2008年1月31日を過ぎていたらメッセージを表示してフォームが開くのを中止しています。
Private Sub Form_Open(Cancel As Integer)
'フォームを開く時
'指定日を過ぎていたら開かせない
If Date > #1/31/2008# Then
MsgBox "使用期限を過ぎました！", vbOKOnly + vbCritical
Cancel = True
End If
End Sub
実行結果：
