VBA声明函数编译错误：MS Access窗口关闭按钮禁用脚本问题排查

我尝试编写一段用于禁用MS Access窗口关闭按钮的VBA脚本，但在声明函数时出现编译错误，错误提示为：

函数编译错误，Visual Basic模块存在语法错误，请检查程序后重新编译

我的代码如下：

Option Compare Database Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
    ' Comments: Control the Access close button.
    ' Disabling it forces the user to exit within the application
    ' Params : pfEnabled TRUE enables the close button, FALSE disabled it
    ' Owner : Copyright (c) FMS, Inc.
    ' Source : Total Visual SourceBook
    ' Usage : Permission granted to subscribers of the FMS Newsletter
    On Error Resume Next
    Const clngMF_ByCommand As Long = &H0&
    Const clngMF_Grayed As Long = &H1&
    Const clngSC_Close As Long = &HF060&
    Dim lngWindow As Long
    Dim lngMenu As Long
    Dim lngFlags As Long
    
    lngWindow = Application.hWndAccessApp
    lngMenu = GetSystemMenu(lngWindow, 0)
    
    If pfEnabled Then
        lngFlags = clngMF_ByCommand And Not clngMF_Grayed
    Else
        lngFlags = clngMF_ByCommand Or clngMF_Grayed
    End If
    
    Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)
End Sub

可能的错误原因及解决办法 #

• Option语句格式错误
  你的代码开头把Option Compare Database和Option Explicit写在了同一行，VBA要求每个Option声明必须单独占据一行，这是直接触发语法错误的原因之一。
  修正后的开头应该是：

  Option Compare Database
  Option Explicit
  

• API声明未适配64位Office环境
  如果你的Access是64位版本，原代码里的32位API声明会因为类型不兼容导致编译错误。32位环境下的Long类型在64位中需要替换为LongPtr，同时Declare语句必须添加PtrSafe关键字才能在64位Office中正常运行。
  我们可以用条件编译来同时兼容32位和64位环境，修正后的API声明如下：

  #If VBA7 Then
      Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As LongPtr, ByVal wRevert As Long) As LongPtr
      Private Declare PtrSafe Function EnableMenuItem Lib "user32" (ByVal hMenu As LongPtr, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
  #Else
      Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
      Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
  #End If
  

  对应的变量类型也要同步调整：

  #If VBA7 Then
      Dim lngWindow As LongPtr
      Dim lngMenu As LongPtr
  #Else
      Dim lngWindow As Long
      Dim lngMenu As Long
  #End If
  

• 位运算逻辑优化（非编译错误，但提升可读性）
  原代码中启用关闭按钮的逻辑lngFlags = clngMF_ByCommand And Not clngMF_Grayed虽然不会导致编译错误，但更清晰的写法是直接使用MF_ENABLED常量（值为&H0&），这样代码可读性更高：

  Const clngMF_Enabled As Long = &H0&
  ' ...
  If pfEnabled Then
      lngFlags = clngMF_ByCommand Or clngMF_Enabled
  Else
      lngFlags = clngMF_ByCommand Or clngMF_Grayed
  End If
  

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