Ms access 将宏转换为VBA的代码中断

我试图弄清楚，在被询问是否要转换的弹出窗口打断后，如何让VBA代码继续。我想我可以弄清楚如何处理通过Windows API出现的第一个和后续弹出窗口。但是，当弹出窗口出现时，我不知道如何将焦点放在我的代码上，因此我无法运行行“MsgBox FindWindow（vbNullString，“Convert macro:”&m.Name）”。代码是否可以继续运行？我知道我必须添加一个循环来检查标题为“Convert macro:”&m.Name的弹出窗口。下面是我到目前为止的代码

Sub ConvertMacrosToVBA()
Dim strDB As String
Dim appAccess As Access.Application
Dim m As Object

strDB = "C:\Users\Me\Desktop\testme.accdb"

Set appAccess = New Access.Application
appAccess.OpenCurrentDatabase strDB


For Each m In appAccess.CurrentProject.AllMacros
    appAccess.DoCmd.SelectObject acMacro, m.Name, True
    appAccess.DoCmd.RunCommand acCmdConvertMacrosToVisualBasic
    MsgBox FindWindow(vbNullString, "Convert macro: " & m.Name)
Next
Set appAccess = Nothing

End Sub

---

哪个调用显示弹出窗口，它是否有参数强制操作而不显示UI？appAccess.DoCmd.RunCommand acCmdConvertMacrosToVisualBasic会导致弹出窗口出现。我的研究表明，没有参数来控制弹出窗口。这是否解决了您的问题：？（显然只适用于Access 2007/2010。）否。该设置适用于附加、删除和更新查询等操作查询。