Ms access MS Access运行时-文件对话框失败

我希望你能在这里帮助我。。。 我在MS Access 2013中有一个应用程序（

.accdb

）。我有一个文件对话框功能的按钮点击。（

MSGBOX

函数用于调试！）

当我在MS Access Runtime 2010上运行此程序时，当我单击按钮时，Access崩溃，我会出现标准运行时错误

我尝试用下面的代码添加引用，但在尝试中失败了

If Application.Version = 14# Then
    MsgBox "Office 2010"
    If Dir("C:\Program Files\Common Files\microsoft shared\OFFICE14\MSO.DLL") <> "" And Not refExists("OFFICE") Then
        MsgBox "Applying Reference for 2010 Office"
        'Application.References.AddFromFile "C:\Program Files\Common Files\microsoft shared\OFFICE14\MSO.dll"
        Application.References.AddFromGuid "{398E906A-826B-48DD-9791-549C649CACE5}", 14#, 14#
        MsgBox "Office 2010 Reference Applied!"
    End If

ElseIf Application.Version = 15# Then
    MsgBox "Office 2013"
    If Dir("C:\Program Files\Common Files\microsoft shared\OFFICE15\MSO.dll") <> "" And Not refExists("OFFICE") Then
        MsgBox "Applying Reference for 2013 Office"
        Application.References.AddFromFile "C:\Program Files\Common Files\microsoft shared\OFFICE15\MSO.dll"
        MsgBox "Office 2013 Reference Applied!"
    End If

End If

如果Application.Version=14#那么
MsgBox“Office 2010”
如果存在Dir（“C:\Program Files\Common Files\microsoft shared\OFFICE14\MSO.DLL”）而不存在REF（“OFFICE”），则
MsgBox“2010年办公室申请参考”
'Application.References.AddFromFile“C:\Program Files\Common Files\microsoft shared\OFFICE14\MSO.dll”
Application.References.AddFromGuid“{398E906A-826B-48DD-9791-549C649CACE5}”，14#，14#
MsgBox“已应用Office 2010参考！”
如果结束
ElseIf Application.Version=15#那么
MsgBox“办公室2013”
如果存在Dir（“C:\Program Files\Common Files\microsoft shared\OFFICE15\MSO.dll”）而不存在REF（“OFFICE”），则
MsgBox“2013年办公室申请参考”
Application.References.AddFromFile“C:\Program Files\Common Files\microsoft shared\OFFICE15\MSO.dll”
MsgBox“已应用Office 2013参考！”
如果结束
如果结束

任何帮助都将不胜感激

谢谢，

---

皮特

遗憾的是，FileDialog在运行时不起作用

此处可以找到一个经常引用的替换代码：

---

这是一个冗长的过程，但它可以工作。

遗憾的是，FileDialog在运行时不起作用

此处可以找到一个经常引用的替换代码：

---

这是一个冗长的问题，但它可以工作。

这不是一个参考问题，因为您使用了后期绑定。更有可能的是，Office 2010的安装存在问题。请注意，您没有说明用户没有选择任何内容，但这不应导致访问崩溃，特别是当您确实选择了一些内容/感谢您的输入时，但我该如何解决这一问题？我是否应该在计算机上重新安装office 2010？我可以看到安装文件中存在

MSO.DLL

库，但出现了一些问题…这不是参考问题，因为您使用了后期绑定。更有可能的是，Office 2010的安装存在问题。请注意，您没有说明用户没有选择任何内容，但这不应导致访问崩溃，特别是当您确实选择了一些内容/感谢您的输入时，但我该如何解决这一问题？我是否应该在计算机上重新安装office 2010？我可以看到安装文件中存在

MSO.DLL

库，但出现了一些问题。。。

If Application.Version = 14# Then
    MsgBox "Office 2010"
    If Dir("C:\Program Files\Common Files\microsoft shared\OFFICE14\MSO.DLL") <> "" And Not refExists("OFFICE") Then
        MsgBox "Applying Reference for 2010 Office"
        'Application.References.AddFromFile "C:\Program Files\Common Files\microsoft shared\OFFICE14\MSO.dll"
        Application.References.AddFromGuid "{398E906A-826B-48DD-9791-549C649CACE5}", 14#, 14#
        MsgBox "Office 2010 Reference Applied!"
    End If

ElseIf Application.Version = 15# Then
    MsgBox "Office 2013"
    If Dir("C:\Program Files\Common Files\microsoft shared\OFFICE15\MSO.dll") <> "" And Not refExists("OFFICE") Then
        MsgBox "Applying Reference for 2013 Office"
        Application.References.AddFromFile "C:\Program Files\Common Files\microsoft shared\OFFICE15\MSO.dll"
        MsgBox "Office 2013 Reference Applied!"
    End If

End If