Ms-访问，VBA 错误

Posted 2023-05-07

【中文标题】Ms-访问，VBA 错误

【英文标题】：Ms- Access, VBA Error

【发布时间】：2016-01-06 20:38:08

【问题描述】：

我在表单中单击按钮时编写了以下代码，该代码应在 Ms-Access 中返回当前屏幕大小

Option Compare Database

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Private Sub Command0_Enter()


Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points

End Sub

我收到以下错误：

您输入的表达式 On Open 作为事件属性设置 产生以下错误：End Sub 后只能出现 cmets， 结束函数或结束属性

【参考方案1】：

您的Declare Function 语句需要在Private Sub Command0_Enter() 之外（上方）。

【讨论】：

除此之外，必须在表单模块中使用Private Declare，或者放到公共模块中。

我做了更改，还是同样的问题

我建议你再检查一次，因为上面的例子对我来说很好，一旦我把Private Declare而不是Declare作为函数