#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved