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

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

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

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

1> Jon Artus..：

---

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

---

神圣f*感谢发布这个,我遇到的确切问题.我只是在每个模块的顶部放置一个xxxx,然后:Debug,编译VBAProject(将突出显示一个xxxx)...删除 - > Debug,编译VBAProject ...重复直到没有更多的编译错误.

2> Fionnuala..：

---

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

"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