通过

Application.FeatureInstall 属性 (Access)

  • 项目

使用 FeatureInstall 属性可以指定或确定 Microsoft Access 如何处理对需要尚未安装功能的方法和属性的调用。 读/写 MsoFeatureInstall。

语法

表达式。FeatureInstall

expression：表示 Application 对象的变量。

备注

当 VBA 代码引用未安装的对象时，Microsoft Installer 技术将尝试安装所需的功能。 使用 FeatureInstall 属性可控制在引用一个未安装的对象时发生的情况。 当此功能设置为默认值时，任何使用未安装对象的尝试都会引起“安装程序”技术试图安装所需功能。 在某些情况下，这会花费一些时间，并且用户可能会认为机器已经对其他命令停止了响应。

可以将 FeatureInstall 属性设置为 msoFeatureInstallOnDemandWithUI ，以便用户可以看到在安装该功能时发生的情况。 如果想要捕获返回的错误并向用户显示自己的对话框，或想要执行自定义操作时，可以将 FeatureInstall 属性设置为 msoFeatureInstallNone。

如果将 UserControl 属性设置为 False，则即使 FeatureInstall 属性设置为 msoFeatureInstallOnDemand，也不会提示用户安装新功能。 如果 UserControl 属性设置为 True，那么当 FeatureInstall 属性设置为 msoFeatureInstallOnDemand，将显示安装进度表。

示例

本示例检查 FeatureInstall 属性的值。 如果该属性设置为 msoFeatureInstallNone ，代码将显示一个消息框，询问用户是否要进行更改的属性设置。 如果用户回答"是"，则会将属性设置为 msoFeatureInstallOnDemand 。 该示例使用名为 MyOfficeApp 的对象变量，该变量作为应用程序对象进行维度化。

 
Dim myofficeapp As Access.Application 
Set myofficeapp = New Access.Application 
 
With MyOfficeApp 
    If .FeatureInstall = msoFeatureInstallNone Then 
        Reply = MsgBox("Uninstalled features for " _ 
            & "this application may " & vbCrLf _ 
            & "cause a run-time error when called." _ 
            & vbCrLf & vbCrLf _ 
            & "Would you like to change this setting" & vbCrLf _ 
            & "to automatically install missing features?", _ 
            vbYesNo, "Feature Install Setting") 
            If Reply = vbYes Then 
                .FeatureInstall = msoFeatureInstallOnDemand 
            End If 
    End If 
End With

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。