ACCDB编译为ACCDE后函数失效问题求助

问题原因 #

• ACCDE作为编译锁定版本，对外部组件的依赖校验更严格，scrrun.dll的注册状态、32/64位兼容性问题会在编译后触发OLE通信故障
• 编译过程中未正确保留对Microsoft Scripting Runtime的引用绑定，导致ACCDE运行时无法正确调用组件
• 哈希函数依赖的Scripting Runtime对象（如FileSystemObject）在编译后遭遇权限或访问限制，引发调用失败

解决办法 #

1. 改用无外部依赖的哈希实现 #

放弃依赖scrrun.dll，直接通过VBA调用系统API实现SHA256哈希，彻底规避OLE组件问题。示例代码：

' 声明SHA256哈希相关API
Private Declare PtrSafe Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As LongPtr, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Boolean
Private Declare PtrSafe Function CryptCreateHash Lib "advapi32.dll" (ByVal hProv As LongPtr, ByVal Algid As Long, ByVal hKey As LongPtr, ByVal dwFlags As Long, ByRef phHash As LongPtr) As Boolean
Private Declare PtrSafe Function CryptHashData Lib "advapi32.dll" (ByVal hHash As LongPtr, ByVal pbData As String, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Boolean
Private Declare PtrSafe Function CryptGetHashParam Lib "advapi32.dll" (ByVal hHash As LongPtr, ByVal dwParam As Long, ByVal pbData As String, ByRef pdwDataLen As Long, ByVal dwFlags As Long) As Boolean
Private Declare PtrSafe Function CryptDestroyHash Lib "advapi32.dll" (ByVal hHash As LongPtr) As Boolean
Private Declare PtrSafe Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As LongPtr, ByVal dwFlags As Long) As Boolean

Public Function GetSHA256Hash(inputStr As String) As String
    Const PROV_RSA_AES As Long = 24
    Const CALG_SHA256 As Long = &H800C
    Const CRYPT_VERIFYCONTEXT As Long = &HF0000000
    
    Dim hProv As LongPtr, hHash As LongPtr
    Dim hashBytes() As Byte, hashLen As Long
    Dim i As Long, hexStr As String
    
    ' 获取加密上下文
    If Not CryptAcquireContext(hProv, vbNullString, vbNullString, PROV_RSA_AES, CRYPT_VERIFYCONTEXT) Then
        GetSHA256Hash = ""
        Exit Function
    End If
    
    ' 创建哈希对象
    If Not CryptCreateHash(hProv, CALG_SHA256, 0, 0, hHash) Then
        CryptReleaseContext hProv, 0
        GetSHA256Hash = ""
        Exit Function
    End If
    
    ' 哈希输入字符串
    If Not CryptHashData(hHash, inputStr, Len(inputStr), 0) Then
        CryptDestroyHash hHash
        CryptReleaseContext hProv, 0
        GetSHA256Hash = ""
        Exit Function
    End If
    
    ' 获取哈希结果
    hashLen = 32
    ReDim hashBytes(hashLen - 1)
    If Not CryptGetHashParam(hHash, 2, ByVal VarPtr(hashBytes(0)), hashLen, 0) Then
        CryptDestroyHash hHash
        CryptReleaseContext hProv, 0
        GetSHA256Hash = ""
        Exit Function
    End If
    
    ' 转换为十六进制字符串
    For i = 0 To hashLen - 1
        hexStr = hexStr & Right$("0" & Hex$(hashBytes(i)), 2)
    Next i
    
    ' 清理资源
    CryptDestroyHash hHash
    CryptReleaseContext hProv, 0
    GetSHA256Hash = UCase$(hexStr)
End Function

替换原依赖Scripting Runtime的哈希代码即可，无需额外引用。

2. 修复组件注册与兼容性 #

• 以管理员身份打开命令提示符，运行对应位数的注册命令：
  • 32位系统：regsvr32 C:\Windows\System32\scrrun.dll
  • 64位系统：regsvr32 C:\Windows\SysWOW64\scrrun.dll
• 确保Access运行环境与组件位数一致：32位Access对应32位scrrun.dll，64位Access对应64位组件，避免跨位数调用。

3. 改用后期绑定调用组件 #

移除ACCDB中对Microsoft Scripting Runtime的静态引用，改用后期绑定创建对象，减少编译后绑定失败概率：

' 替换早期绑定代码：Dim fso As New FileSystemObject
' 改为后期绑定：
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

4. 清理编译缓存重新生成 #

• 关闭Access，删除ACCDB对应的.laccdb锁定文件和旧.accde文件
• 重新打开ACCDB，执行数据库工具>压缩和修复数据库，再重新编译生成ACCDE

内容的提问来源于stack exchange，提问作者Apurva Singh