二つのフォームの画面切り替えを禁止するには

Question

いま、フォームのリストのチェックの入ったレコードを葉書印刷レポートでプレビュー表示する

 

という作業を作成しています。

 

その過程で、葉書印刷フォームが開き、リスト表示されているフォームはそのままの状態になる部分があります。

 

リストの方は画面が縦約15センチ・横25ｃｍのサイズで

印刷のほうは5ｃｍ・10センチ位のサイズです。

リストの印刷ボタンクリックで印刷フォームが開き、縦書きか横書きかを選びます。

そのときに誤って、リストの方の画面にカーソルがある状態でクリックしてしまうと制御がリストのほうに移り、一番上の画面はリストフォームになってしまいます。

 

あやまってリストフォームをクリックしてしまっても制御が移らなくてすむ方法を教えて下さい。

Answer 1

フラグ さんからの引用

あやまってリストフォームをクリックしてしまっても制御が移らなくてすむ方法を教えて下さい。

(前半に書かれた "Form の内容" はあまり関係がないような回答になってしまいますが)
モーダル表示にすれば良いだけのお話ではないのでしょうか?

Answer 2

一時間くらいさまよったのですが、コードの作成方法がわかりません。

 

docmd.open・・・

でフォームを開いているのですが・・・。

Answer 3

フラグ さんからの引用

docmd.open・・・でフォームを開いているのですが・・・。

Access でしたか...

であれば、

Access VBA

Call DoCmd.OpenForm("フォーム2", acNormal, WindowMode:=acDialog)

 
と、acDialog モードで開けばモーダルで表示できます。

Answer 4

この後レポートを開くことになるのですが、このままだと、レポート画面トップにはこないですけど、

どうしたらいいですか？

 

レポ―トオープン前にフォームを閉じるしかないのかしら｡

Answer 5

フラグ さんからの引用

この後レポートを開くことになるのですが、このままだと、レポート画面トップにはこないですけど、どうしたらいいですか？レポ―トオープン前にフォームを閉じるしかないのかしら｡

OpenReport メソッドでも acDialog モードが使えます。
すでにモーダルになっている Form から呼び出せば Top に表示されるようになると思います。

Answer 6

じゃんぬねっと さんからの引用

OpenReport メソッドでも acDialog モードが使えます。 すでにモーダルになっている Form から呼び出せば Top に表示されるようになると思います。

 

 

回答済みチェックを入れたあのコードがサンプルですよね？

「WindouMode：」のところで対応してないという内容のメッセージがでるのですが・・・。

Answer 7

どうも、フラグです。

いつもありがとうございます。

 

どうも、難しく考えすぎていたようです。

 

フォームのプロパティーにある作業ウィンドウの固定を「はい」に設定

 

でいいとのことでした。（職場の先輩からの情報です。）

 

じゃんぬねっと様ご協力ありがとうございました。

Answer 8

こんにちは、フラグさん。

フラグ さんからの引用

回答済みチェックを入れたあのコードがサンプルですよね？「WindouMode：」のところで対応してないという内容のメッセージがでるのですが・・・。

どんなコーディングをし、どのようなメッセージが出たのでしょうか?
私の方で念のため確認したところ何の問題もなく期待通りに動作しました。

Answer 9

このメソッドはｻﾎﾟｰﾄしてませんだったかな。

フォームは問題なかったのですがレポートプレビューが開かなかった。

 

オプションプロパティで対応というレベルでよかったみたいなので今回のシステムではこのメソッドは使わないことにします。

Answer 10

フラグ さんからの引用

このメソッドはｻﾎﾟｰﾄしてませんだったかな。

開こうとしているものを誤っているだけではないでしょうか?

Access VBA

Call DoCmd.OpenReport("レポート1", acViewPreview, WindowMode:=acDialog)

 

で、普通にプレビュー表示できました。

Answer 11

じゃんぬねっと様が書いてくださった通りのコードを入れていました。

最後のカンマ以降は同じだったのでそれをコピーしました。

docmdの前にcallと入れ、レポート名の前に（、開く型のあとに貼り付け）としました。

 

で、あのメッセージがでちゃったんです。

 

いろいろ調査していただきありがとうございます。