[Access] フォーム関連操作

2008/03/04プログラミング::VBA

フォームをモーダルに設定

エンドユーザーの興味から発生する余計な操作をさせないために、現在開いているフォーム以外の操作を行えないようにするためにするモーダルプロパティが設定できます。

下記の例は、自分自身以外の操作を受け付けなくする場合の例。

'フォームを開く時の処理
Private Sub Form_Open( Cancel As Integer )
	'モーダルウィンドウ設定
	Me.Modal = True
End Sub

フォームを開いた後に、呼び出し元フォームを閉じる

登録フォームから表示専用のフォームを開くときなど、呼び出し元フォームを閉じたいときの処理。

'フォームを開くプロシージャ
Private Sub barOpen()
	'barForm: 開きたいフォーム
	DoCmd.OpenForm "barForm"
	'fooForm: 呼び出し元フォーム
	DoCmd.Close acForm, "fooForm",  acSaveNo
End Sub

環境

以下の環境で確認しました。

  • Access 2002
  • Windows XP Pro