如何获取MS Access中表单显示可用空间的尺寸？

核心实现思路 #

MS Access没有直接返回表单可用显示区域（你提到的黄色区域）的内置属性，需通过Windows API结合Access界面元素属性计算得出，以下是针对高度的具体实现方案：

步骤与代码实现 #

1. 声明Windows API函数
   在Access标准模块中添加以下API声明（兼容32/64位版本）：

Declare PtrSafe Function GetClientRect Lib "user32.dll" (ByVal hwnd As LongPtr, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

2. 编写计算可用高度的函数
   该函数会自动适配功能区显示状态、状态栏高度的影响：

Function GetFormAvailableHeight() As Long
    Dim accMainHwnd As LongPtr
    Dim clientArea As RECT
    Dim ribbonHeight As Long
    Dim statusBarHeight As Long
    
    ' 获取Access主窗口句柄
    accMainHwnd = Application.hWndAccessApp
    
    ' 获取主窗口客户区整体尺寸
    GetClientRect accMainHwnd, clientArea
    
    ' 根据功能区可见性计算其高度
    ribbonHeight = IIf(Application.CommandBars("Ribbon").Visible, Application.CommandBars("Ribbon").Height, 0)
    
    ' 获取状态栏高度
    statusBarHeight = Application.StatusBarHeight
    
    ' 计算最终可用高度：客户区总高度 - 功能区高度 - 状态栏高度
    GetFormAvailableHeight = clientArea.Bottom - clientArea.Top - ribbonHeight - statusBarHeight
End Function

3. 适配表单高度
   调用函数直接设置表单的内部可显示区域高度：

' 替换为你的目标表单名称
Forms("YourTargetForm").InsideHeight = GetFormAvailableHeight()

额外说明 #

• 若表单使用非默认边框样式（如带标题栏、自定义边框），可通过Forms("YourTargetForm").WindowHeight - Forms("YourTargetForm").InsideHeight计算表单自身非客户区高度，再从函数返回值中扣除，得到更精准的可用高度。
• 如需处理功能区动态显示/隐藏的场景，可在CommandBars("Ribbon").Visible状态变化的事件中重新调用函数更新表单高度。

内容的提问来源于stack exchange，提问作者hennep