- "Modal/作業ウィンドウ固定" プロパティ
- フォームを作業ウィンドウ固定（モーダル状態）で開くかどうかを設定します。
Trueの場合、このフォームを閉じない限り、他のウィンドウにフォーカスを移動することができなくなります。
- フォーム
-
Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理
Const cstrForm As String = "フォーム101View"
'対象フォームをデザインビュー＆非表示で開く
DoCmd.OpenForm cstrForm, acDesign, , , , acHidden
'対象フォームのプロパティを設定
With Forms(cstrForm)
Select Case Me!fraProperty
Case 1
'作業ウィンドウ固定で開く
.Modal = True
Case 2
'作業ウィンドウ非固定で開く
.Modal = False
End Select
End With
'対象フォームを保存したあと表示する
DoCmd.Close acForm, cstrForm, acSaveYes
DoCmd.OpenForm cstrForm
End Sub
フォーム101View側のコード：
Private Sub Form_Load()
'フォーム読み込み時
'モーダルの状態をラベルに表示
Me!lblModal.Caption = Me.Modal
End Sub
- 作業ウィンドウ固定で開かれた場合。このとき、Accessのウィンドウやメニューバー・ツールバーも含めて、このフォーム以外のウィンドウをアクティブにしたり操作したりすることはできません。
- 作業ウィンドウ非固定の場合は、自由に他のウィンドウも操作することができます。
|
#101
