调试错误的DLL调用约定错误

Question

如何在MSAccess VBA代码中调试错误的DLL调用约定错误？

我对模块中的函数进行了一些更改,然后得到了错误.如何通过调试来查找原因？

该函数的Exit函数语句中发生错误.

Answer 1

我之前在Excel中看过这个,没有任何外部引用.与您的问题一样,它发生在Exit Function调用上.Excel似乎没有/ decompile选项,但是我通过在我的一个类模块中进行更改,从Debug菜单执行编译,然后撤消更改来修复它.我怀疑我的一个类模块由于某种原因进行了错误编译,除非认为某些内容发生了变化,否则Excel不会重新编译.

Answer 2

你检查了你的参考文献并反编译了吗？

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" 
                                "d:\My Documents\access\mayapp.mdb" /decompile

另见:
http ://www.granite.ab.ca/access/decompile.htm
VBScript反编译

检查代码中的引用

Dim ref As Reference
Dim sMsg As String

''Available since 2010
If BrokenReference Then
    For Each ref In References
        ''Available since at least 2000
        If ref.IsBroken Then
            sMsg = sMsg & "Ref Name: " & ref.Name
            'Also, if required
            'sMsg = sMsg & vbCrLf & "Built In: " & ref.BuiltIn
            'sMsg = sMsg & vbCrLf & "Full Path: " & ref.FullPath
            'sMsg = sMsg & vbCrLf & "GUID: " & ref.Guid
            'sMsg = sMsg & vbCrLf & "Kind: " & ref.Kind
            'sMsg = sMsg & vbCrLf & "Major (version number): " & ref.Major
            'sMsg = sMsg & vbCrLf & "Minor (version number): " & ref.Minor
            sMsg = sMsg & vbCrLf & "=================================" & vbCrLf
        End If
    Next
    MsgBox sMsg
End If