アクセスのフォームのボタンで

ａｃｃｅｓｓ2010を使っています
メニュー画面があり、そこに配置したボタンで
メニュー以外に開いているウインドをすべて閉じるＶＡＢを組みたいのですが
アクティブウインドを閉じる命令ばかりがひっかかっています
非アクティブウインドをすべて閉じるＶＢＡ文を教えていただければと思います

No.1 回答者： MRT1452 回答日時： 2011/01/19 17:24

やったことが無いので推測ですが、

VBA単体では、自分以外のウィンドウを閉じるということは出来ないかと。
自分自身に対しては制御範囲内なので可能ですが。

その処理を行うのであれば、API等を介して、OSの機能を制御する命令を間接的にキックするという形になると思います。
その詳細等については、調べてみないと判らないです。

この回答へのお礼

確かに調べてみると制御の問題がでてくるみたいです
ありがとうございました

お礼日時：2011/01/21 10:54

No.2 回答者： piroin654 回答日時： 2011/01/19 18:42

ボタンクリック時のイベントで、

Private Sub コマンド0_Click()
Dim i As Integer
For i = Forms.Count - 1 To 0 Step -1
If Not Forms(i).Name = Me.Name Then
DoCmd.Close acForm, Forms(i).Name
End If
Next
End Sub


Accessのウィンドウ自体の非表示ではないと
思うので、以上でどうでしょう。

この回答へのお礼

試してみましたが、どうも思った通りには
いかないのでこれを元にもう少し考えてみます
ありがとうございます

お礼日時：2011/01/21 10:55

No.3 ベストアンサー 回答者： layy 回答日時： 2011/01/19 22:12

＞メニュー以外に開いているウインドをすべて閉じる

「メニュー以外に開いている」という
この事象を防いだ方がスッキリするように思います。

参考。
「access 直前まで開いていたフォームを閉じる。」
http://oshiete.goo.ne.jp/qa/5735801.html
と同じことが起きているのでは？。


60秒間経過すると自動的にフォームを閉じる
http://www.accessclub.jp/urawaza/65.html


http://www.happy2-island.com/access/gogo03/capte …
VBAで開いているオブジェクトを閉じる(DoCmd.Close)


メニュー以外に開いているウインドが無いときも
考慮しておいた方がいいです。

この回答へのお礼

不必要なウインドがすっきりいきそうです
ありがとうございました

お礼日時：2011/01/21 10:57