Sign in with Microsoft
Sign in or create an account.
Hello,
Select a different account.
You have multiple accounts
Choose the account you want to sign in with.

在 Access 桌面資料庫中,如果已將文件視窗選項設定為使用重疊的視窗,而非索引標籤式文件,則可以使用 MoveAndSizeWindow 巨集指令來移動或調整使用中視窗的大小。 如需如何設定文件視窗選項的詳細資訊,請參閱「備註」小節。

附註: 您無法將此巨集指令套用至 Visual Basic 編輯器的程式碼視窗。 如需如何影響程式碼視窗的詳細資訊,請參閱 WindowState 屬性主題。

附註: 從 Access 2010 開始,MoveSize 巨集指令已重新命名為 MoveAndSizeWindow

附註:  MoveAndSizeWindow 巨集指令在 Access Web App 中無法使用。

設定

MoveAndSizeWindow 巨集指令具有下列引數。

巨集指令引數

描述

Right

視窗左上角的新水平位置,從包含它的視窗的左邊緣測量起。 在 Right 引數方塊中輸入位置。

Down

視窗左上角的新垂直位置,從包含它的視窗的上邊緣測量起。

Width

視窗的新寬度。

Height

視窗的新高度。


如果您將引數保留空白,Access 會使用目前視窗的設定。

您必須至少為一個引數輸入值。

附註: 每個度量單位為英吋或公分,根據 Windows 控制台的地區設定而定。

註解

若要將應用程式設定為使用重疊視窗,而非索引標籤式文件,請使用下列程序:

  1. 按一下 [檔案] > [選項]。

  2. 按一下 [目前資料庫]。

  3. 在 [應用程式選項] 區段中,於 [文件視窗選項] 下,按一下 [重疊視窗]。

  4. 按一下 [確定],然後關閉並重新開啟資料庫。

此動作類似於按一下視窗的 [控制項] 功能表上的 [移動] 或 [大小]。 利用功能表命令,您可以使用鍵盤的方向鍵來移動或調整視窗大小。 使用 MoveAndSizeWindow 巨集指令,您可以直接輸入位置和大小度量單位。 您也可以使用滑鼠來移動和調整視窗大小。

您可以在任何視窗中、在任何檢視中使用此巨集指令。

祕訣

  • 若要移動視窗而不要調整其大小,請輸入 RightDown 引數的值,但保留 WidthHeight 引數空白。

  • 若要調整視窗大小移動視窗而不移動它,請輸入 WidthHeight 引數的值,但保留 RightDown 引數空白。

若要在 Visual Basic for Applications (VBA) 模組中執行 MoveAndSizeWindow 巨集指令,請使用 DoCmd 物件的 MoveSize 方法。

範例

使用巨集來同步處理表單

下列巨集指令會在供應商表單的右下角開啟產品清單表單,顯示目前供應商的產品。 它會顯示 EchoMsgBoxGoToControlStopMacroOpenFormMoveAndSizeWindow 指令的用途。 它也說明使用條件式運算式搭配 MsgBoxGoToControlStopMacro 指令。 此巨集應該連接至供應商表單上的 [檢閱產品] 按鈕。

條件

動作

引數:設定

註解

Echo

Echo OnNo

巨集執行時停止更新畫面。

IsNull([Supplier ID])

MsgBox

Message:移至您要查看其產品的供應商記錄,然後再次按一下 [檢閱產品] 按鈕。

BeepYes

TypeNone

Title:選取供應商

如果供應商表單上沒有目前的供應商,則顯示訊息。

GoToControl

Control Name:CompanyName

將焦點移至 CompanyName 控制項。

...

StopMacro

停止巨集。

OpenForm

Form Name:產品清單

ViewDatasheet

Filter Name

Where Condition:[Supplier ID] = [Forms]![Suppliers]![SupplierID]

Data ModeRead Only

Window ModeNormal

開啟產品清單表單,並顯示目前供應商的產品。

MoveAndSizeWindow

Right:0.7799"

Down:1.8"

將產品清單表單放置在供應商表單的右下角。

Need more help?

Expand your skills
Explore Training
Get new features first
Join Microsoft Office Insiders

Was this information helpful?

How satisfied are you with the translation quality?
What affected your experience?

Thank you for your feedback!

×