ACCESS フォームの操作

下記のようなことが可能であれば、方法をご教授願います。

まず、構造
フォーム2つ
1.メニュー…コマンドボタン２つ（BT11とBT12）
2.メイン　 …コマンドボタン３つ（BT21とBT22とBT23）

やりたいことは、
BT11とBT12のクリックイベントでどちらもメインフォームを表示

ただし、
BT11クリック時はacFormAddでメインフォーム上にBT21、BT23だけを表示し、
BT12クリック時はacReadOnlyメインフォーム上にBT22、BT23だけを表示
です。

フォームの表示は出来ましたが、
コマンドボタンの表示/非表示が切り替わりません。

sub　BT11_Click()
１行目　DoCmd.OpenForm "フォーム名", acNormal, , acFormAdd, acDialog
２行目　Forms!メインフォーム!BT21.Visible = True
end　sub

BT11をクリックしたときは、１行目でとまっているようです。
メインフォームを閉じるときに２行目を実行しようと
するようで、メインフォームがないというエラーがでます。

宜しくお願い致します。

No.1 ベストアンサー 回答者： DexMachina 回答日時： 2012/05/14 08:43

> BT11をクリックしたときは、１行目でとまっているようです。

DoCmd.OpenFormで第5引数に「acDialog」を指定しているために、そのような動作に
なっているものと思います。
(これを指定すると、MsgBoxなどのように、そのフォームを閉じるまで、次の処理が実行
　されなくなります)

ですので、まずはその引数を省略して
　　DoCmd.OpenForm "フォーム名", acNormal, , acFormAdd
とした上で、ポップアップで表示したいということでしたら、当該フォーム(BT21を設置して
いるフォーム)のデザインビューで、『その他』タブの『ポップアップ』の値を「はい」に、『書式』
タブの『サイズ自動修正』を「はい」に、同タブの『自動中央寄せ』を「はい」に、それぞれ
指定して下さい。

また、当該フォーム表示中は他のフォームなどを触れなくしたい場合は、その下の『作業
ウィンドウ固定』も「はい」にします。

さらに、フォームの外見をMsgBoxなどと同様にしたい場合は、『書式』タブの各項目を
以下のようにしてみてください(一例)：

　『スクロールバー』：「なし」
　『レコードセレクタ』：「いいえ」
　『移動ボタン』：「いいえ」
　『区切り線』：「いいえ」
　『境界線スタイル』：「ダイアログ」
　『コントロールボックス』：「いいえ」
　『最小化/最大化ボタン』：「なし」
　『閉じるボタン』：「いいえ」

※他の設定項目の内容により、設定が無視される項目もありますが、ここではその
　 項目の設定もそのまま載せさせていただきました(汗)

この回答へのお礼

お礼が遅くなり申し訳ありません。
すごく丁寧なご説明、ありがとうございます。
また、書いていなかったにもかかわらず

>ポップアップで表示したいということでしたら、当該フォーム(BT21を設置して
>いるフォーム)のデザインビューで、『その他』タブの『ポップアップ』の値を「はい」に、『書式』
>タブの『サイズ自動修正』を「はい」に、同タブの『自動中央寄せ』を「はい」に、それぞれ
>指定して下さい。

>また、当該フォーム表示中は他のフォームなどを触れなくしたい場合は、

と、まさにお察しの通りです。

お二人のご回答を合わせて、希望通りのことができました。
本当にありがとうございました。

お礼日時：2012/05/16 14:49

No.2 回答者： nekoman2012 回答日時： 2012/05/14 10:13

DoCmd.OpenFormの引数OpenArgsに値を持たせ、フォーム・メイン側Form_Loadあたりで制御するのも一つの手かと思います。

この回答への補足

お礼が遅くなり申し訳ありません。
ありがとうございました。

「ＯｐｅｎＡｒｇｓ」が何か知らず使ったことがなかったので、調べました。
こんな感じで、いつも必要なことだけ調べて使用しているので、またひとつ勉強になりました。

お二人の回答を合わせて、希望通りのものができました。
本当にありがとうございました。

補足日時：2012/05/16 16:26

この回答へのお礼

補足とお礼間違えてしまいました。
すみません。

お礼日時：2012/05/16 16:27