| 投稿日 | ： 2005/05/18(Wed) 16:22 |
| 投稿者 | ： ゆ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: フォームを一度に全て閉じる方法（モーダルフォームが混在する場合） |
Dim objForm As Form
For Each objForm In Forms
If Not objForm Is Me Then ’このMeとは親フォームを意味します。
’この部分を書き換えて下さい
Unload objForm 'フォームが開いていたら閉じる
End If
Next objForm
これですべてのフォームが閉じると思います。