如何在MS Access VBA中检索屏幕大小/分辨率以重新调整表单大小

在MS Access VBA中，可以使用Screen对象的Width和Height属性来获取屏幕分辨率。然后，可以使用Form对象的Width和Height属性来调整表单大小。以下是一个示例代码：

Sub ResizeForm()
    '获取屏幕分辨率
    Dim screenWidth As Integer
    Dim screenHeight As Integer
    screenWidth = Screen.Width
    screenHeight = Screen.Height

    '设置表单大小
    Dim formWidth As Integer
    Dim formHeight As Integer
    formWidth = screenWidth * 0.8 '表单宽度为屏幕宽度的80%
    formHeight = screenHeight * 0.8 '表单高度为屏幕高度的80%

    '调整表单大小
    Forms("YourFormName").Width = formWidth
    Forms("YourFormName").Height = formHeight
End Sub

将上述代码放入MS Access VBA中的一个模块中，并将YourFormName替换为您要调整大小的表单名称。然后，在需要调整表单大小的时候调用ResizeForm子程序即可。