MS-Access中，VBA錯誤

Question

我已經寫在表格點擊按鈕下面的代碼，它應該在MS-訪問返回當前屏幕尺寸

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 

我收到以下錯誤：

The expression On Open you entered as the event property setting produced the following error: Only comments may appear after End Sub, End Function or end property

Answer 1

你Declare Function語句需要到外面（上面）Private Sub Command0_Enter()。