MS Access：从模块内调整对话框窗体大小的问题

问题根源 #

用acDialog参数打开窗体时，VBA代码会暂停执行，直到该对话框窗体关闭，所以你写在OpenForm后面的MoveSize命令，其实是在窗体关闭后才运行，自然无法调整窗体大小。第二个代码的错误是语法问题（Forms.("MsgBoxForm")多了括号，正确写法是Forms("MsgBoxForm")），但即使修正，也会因为acDialog的阻塞特性执行不到对应代码。

解决方案（无需修改窗体事件，集中在模块内） #

方法1：手动设置窗体模态，替代acDialog #

放弃acDialog参数，先以普通方式打开窗体，调整大小后再设置为模态，实现和对话框一致的效果：

Option Compare Database
Option Explicit

Public Function OpenFormDialog()
    Dim frm As Form
    
    ' 打开窗体（不使用acDialog，代码不阻塞）
    DoCmd.OpenForm "MsgBoxForm", acNormal, , , acFormAdd
    Set frm = Forms("MsgBoxForm")
    
    ' 调整窗体高度为9500
    frm.MoveSize , , , 9500
    
    ' 设置为模态，阻止用户操作其他窗口
    frm.Modal = True
    ' 可选：设置弹出属性，让窗体始终在最上层
    frm.PopUp = True
End Function

方法2：动态绑定窗体Load事件（支持acDialog） #

通过OpenArgs传递尺寸参数，在模块中动态绑定窗体的Load事件，无需修改窗体原有代码：

Option Compare Database
Option Explicit

' 模块级变量保存窗体引用
Private WithEvents targetFrm As Form

Public Function OpenFormDialog()
    ' 通过OpenArgs传递目标高度值
    DoCmd.OpenForm "MsgBoxForm", acNormal, , , acFormAdd, acDialog, "9500"
End Function

' 绑定的窗体Load事件处理函数
Private Sub targetFrm_Load()
    ' 读取OpenArgs中的尺寸并调整
    If Not IsNull(targetFrm.OpenArgs) Then
        targetFrm.MoveSize , , , CLng(targetFrm.OpenArgs)
    End If
End Sub

' 类初始化时捕获打开的窗体
Private Sub Class_Initialize()
    If CurrentProject.AllForms("MsgBoxForm").IsLoaded Then
        Set targetFrm = Forms("MsgBoxForm")
    End If
End Sub

注意：这段代码要放在类模块中，调用时需要实例化类：

' 在标准模块中添加调用代码
Public Sub TestOpenForm()
    Dim frmHandler As New YourClassName ' 替换为你的类模块名称
    frmHandler.OpenFormDialog
End Sub

方法3：用API等待窗体激活（标准模块可用） #

通过Windows API等待窗体加载完成后调整大小，再设置模态：

Option Compare Database
Option Explicit

' 声明API函数
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function WaitForInputIdle Lib "user32" (ByVal hProcess As LongPtr, ByVal dwMilliseconds As Long) As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As LongPtr, lpdwProcessId As Long) As Long

Public Function OpenFormDialog()
    Dim frmHwnd As LongPtr
    Dim processId As Long
    
    ' 非模态打开窗体
    DoCmd.OpenForm "MsgBoxForm", acNormal, , , acFormAdd
    ' 获取窗体句柄（第二个参数为窗体标题栏文本，需替换为实际标题）
    frmHwnd = FindWindow("OMain", "MsgBoxForm")
    
    If frmHwnd <> 0 Then
        ' 获取进程ID并等待窗体初始化完成
        GetWindowThreadProcessId frmHwnd, processId
        WaitForInputIdle processId, 1000 ' 等待1秒，可按需调整
        
        ' 调整窗体大小
        DoCmd.MoveSize , , , 9500
        ' 设置为模态
        Forms("MsgBoxForm").Modal = True
    End If
End Function

常见错误修正 #

你第二个代码的语法错误：Forms.("MsgBoxForm")需改为Forms("MsgBoxForm")，但即使修正，因为acDialog会阻塞代码执行，这行命令依然无法生效。

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