MS Access 2003スタートアップオプションが実行/バイパスされたかどうかをテストできますか？

Question

MS Access 2003データベースにスタートアップオプションを設定して、起動時にメインフォームapplicationが表示されるようにしました。ファイルを開いたときにSHIFTを押して、これらの起動オプションをバイパスすることができます。 （つまり、私が編集モードにしていたときに、それは現在だけでなく編集モードでのMS Accessを出るときに、私は希望

Private Sub Form_Close 
    DoCmd.Quit 
End Sub 

は、バイパスする：

しかし、私はこのメインフォームapplicationに次のコードを持っていますデザインモードでフォームを表示しているときではなく、起動オプションをバイパスした実際のフォームを表示するとき）。

VBAで起動オプションが実行されたかバイパスされたかを検出する方法はありますか？

Answer 1

デザインを必要としない、非表示の起動フォーム（Me.Visible = Falseでに表示）を使用します。その後、Form_Unload(Cancel as Integer)イベントを使用し、確認ダイアログを追加することもできます。あなたが検出することができますどのような

Private Sub Form_Unload(Cancel As Integer) 
    If MsgBox("Do you really want to quit?", vbYesNo) = vbNo Then 
     Cancel = True 
    Else 
     ' do something before quit, but Form_Close will raise too 
    End If 
End Sub 

それがロードされていないとして、（あなたが他の場所でそれを開始しない限り）スタートアップフォームが起動時にシフトをトリガするために使用することができ、シフトを使用する場合は、。

フォームを誤って閉じることはないことに注意してください（例：開いているフォームをすべて閉じる機能）。