#459 指定日を過ぎたらフォームを開かせない フォーム、VBA

フォームの"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


実行結果:
使用期限を過ぎたメッセージ
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved