Access デスクトップ データベースでは、タブ付きドキュメントの代わりにウィンドウを重ねて表示するようにドキュメント ウィンドウ オプションを設定している場合、MoveAndSizeWindow マクロ アクションを使用し、アクティブ ウィンドウを移動させたり、サイズを変更したりできます。 ドキュメント ウィンドウ オプションの設定方法に関する詳細については、「解説」セクションを参照してください。
注: このマクロ アクションは、Visual Basic エディターのコード ウィンドウには適用できません。 コード ウィンドウを変更する方法については、WindowState プロパティのトピックをご覧ください。
注: MoveAndSizeWindow/ウィンドウの移動とサイズ変更マクロ アクションは、Access Web アプリでは利用できません。
設定
MoveAndSizeWindow/ウィンドウの移動とサイズ変更マクロ アクションには次の引数があります。
アクションの引数 |
説明 |
---|---|
右 |
ウィンドウの左上隅の新しい水平位置であり、ウィンドウの左端から計測されます。 [右] 引数ボックスに位置を入力します。 |
下 |
ウィンドウの左上隅の新しい垂直位置であり、ウィンドウの上端から計測されます。 |
幅 |
ウィンドウの新しい幅。 |
高さ |
ウィンドウの新しい高さ。 |
引数を空白のままにする場合、Access ではウィンドウの現在の設定が使用されます。
1 つ以上の引数に対して値を入力する必要があります。
注: 単位はインチかセンチメートルです。Windows コントロール パネルの地域設定に基づきます。
解説
タブ付きドキュメントではなくウィンドウを重ねて表示するようにアプリケーションを設定するには、次の手順を使用します。
-
[ファイル] メニューの [オプション] をクリックします。
-
[カレント データベース] をクリックします。
-
[アプリケーション オプション] セクションの [ドキュメント ウィンドウ オプション] で、[ウィンドウを重ねて表示する] をクリックします。
-
[OK] をクリックし、データベースを閉じ、再度開きます。
この操作は、ウィンドウの [コントロール] メニューで [移動] または [サイズ] をクリックすることに似ています。 メニュー コマンドでは、キーボードの矢印キーを使用し、ウィンドウを動かしたり、サイズを変更したりします。 MoveAndSizeWindow マクロ アクションでは、位置とサイズの数値を直接入力します。 マウスでウィンドウを動かしたり、サイズを変更したりすることもできます。
このマクロ アクションはあらゆるウィンドウのあらゆるビューで可能です。
ヒント
-
サイズを変更せずにウィンドウを動かすには、[右] 引数と [下] 引数に値を入力し、[幅] 引数と [高さ] 引数を空欄にします。
-
動かさずにウィンドウのサイズを変更するには、[幅] 引数と [高さ] 引数に値を入力し、[右] 引数と [下] 引数を空欄にします。
Visual Basic for Applications (VBA) モジュールで MoveAndSizeWindow/ウィンドウの移動とサイズ変更 マクロ アクションを実行するには、DoCmd オブジェクトの MoveSize メソッドを使います。
使用例
マクロを使用してフォームを同期する
次のマクロ アクションは、仕入れ先フォームの下右隅で製品一覧フォームを開き、現在の仕入れ先の製品を表示します。 Echo、MsgBox、GoToControl、StopMacro、OpenForm、MoveAndSizeWindow アクションの使用が表示されます。 MsgBox、GoToControl、StopMacro アクションの条件式の使用も表示されます。 このマクロは仕入れ先フォームの [製品レビュー] ボタンに関連づけられている必要があります。
条件 |
操作 |
引数: 設定 |
コメント |
---|---|---|---|
Echo |
エコーの設定:いいえ |
マクロの実行中に画面の更新を停止します。 |
|
IsNull([Supplier ID]) |
MsgBox |
メッセージ:製品を確認する仕入れ先の記録に移動し、[製品レビュー] ボタンを再度クリックします。 警告音: はい 種類:なし タイトル:仕入先を選択する |
仕入先フォームに現在の仕入先がない場合、メッセージが表示されます。 |
GoToControl |
コントロール名: CompanyName |
CompanyName コントロールにフォーカスを移動します。 |
|
... |
StopMacro |
マクロを停止します。 |
|
フォームを開く |
フォーム名:製品一覧 表示:データシート フィルター名 Where Condition: [Supplier ID] = [Forms]![Suppliers]![SupplierID] データ モード:読み取り専用 ウィンドウモード: "標準" |
製品一覧フォームを開き、現在の仕入先の製品を表示します。 |
|
MoveAndSizeWindow |
右:0.7799" 下:1.8" |
仕入れ先フォームの右下に製品一覧フォームを配置します。 |