Ms- Access，VBA错误

Question

我在单击表单中的按钮时编写了以下代码，该按钮应返回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后只能显示注释，   结束函数或结束属性

Answer 1

您的$sql = mysql_query("SELECT * FROM list") or die( mysql_error() ); 声明需要在Declare Function之外（<1}}。