Current、Openがそれぞれ2回発動する

質問

テーブルには適当なデータが入っています。

フォーム1を作り、コマンドボタンを1個だけ設置して、フォーム2を開くようにするために

Private Sub コマンド0_Click()
DoCmd.OpenForm Form_フォーム2.Name
End Sub

としました。

フォームはテーブルをレコードソースとしています。

フォーム２のモジュールに
Private Sub Form_Current()
Debug.Print "Form_Current"
End Sub

Private Sub Form_Open(Cancel As Integer)
Debug.Print "Form_Open"
End Sub

としたのですが、結果は
Form_Open
Form_Current
Form_Open
Form_Current
になります。

よって、二つのイベントの中にいくつかのプロシージャーが入っているのですが
2回ずつ実行されてしまい、求めている結果と異なってしまいます。

これを回避する方法はありますか？

どうしてもフォーム１のコマンドボタンを押して、フォーム２をひらきたいのです。
よろしくお願いします。

回答No.1

nicotinism · ベストアンサー

>DoCmd.OpenForm Form_フォーム2.Name
だと二回発生しますね。
クラスとしてのフォーム2の関係から？のような気がしますが
残念ながらスキルを持ち合わせていません。
DoCmd.OpenForm "フォーム2"
なら１回だけでした。

お礼

ご回答ありがとうございます。

回答No.2

nicotinism

追伸
フォーム2 を閉じた状態で、イミディエイトウィンドウで
?フォーム2.name
とすると、やはりイベントが発生します。
Msgbox "" を加えて置くとと出てきます。
この場合にはフォームは開かれていない（目には見えない）ように感じますが
内部的？に一旦開かれているようです。

なので、Docmd.Openform Form_フォーム2.Name とした場合には
Form_フォーム2.Name で仮オープン？（一回目）して名前を取得
その後、
Docmd.OpenForm フォームの実名（二回目） のようになるという事の様です。

お礼

ご回答ありがとうございます。