Access VBA教程:FeatureInstall属性

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

MsoFeatureInstall 可以是下列 MsoFeatureInstall 常量之一:
msoFeatureInstallNone (默认值)运行期间,当调用未安装的功能时,出现“自动化”错误。
msoFeatureInstallOnDemand 提示用户安装新功能。
msoFeatureInstallOnDemandWithUI 自动安装功能,并且在安装时显示进度表。不提示用户安装新功能。

expression.FeatureInstall

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

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

VBA示例

此示例检查 FeatureInstall属性的值。如果属性设置为 msoFeatureInstallNone,代码将显示消息框,询问用户是否要更改属性设置。如果用户响应为“是”,那么将属性设置为 msoFeatureInstallOnDemand。此示例使用定义为应用程序对象的名为 MyOfficeApp 的对象变量。


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
 

上页:Access VBA教程:FastLaserPrinting属性 下页:Access VBA教程:FetchDefaults属性

Access VBA教程:FeatureInstall属性

Access VBA教程:FetchDefaults属性 Access VBA教程:FieldName属性
Access VBA教程:FieldSize属性 Access VBA教程:FileDialog属性
Access VBA教程:FileFormat属性 Access VBA教程:FileSearch属性
Access VBA教程:FillColor属性 Access VBA教程:FillStyle属性
Access VBA教程:Filter属性 Access VBA教程:FilterLookup属性
Access VBA教程:FilterOn属性 Access VBA教程:FolderSuffix属性
Access VBA教程:FollowedHyperlinkColor属性 Access VBA教程:FontBold属性
Access VBA教程:FontItalic属性 Access VBA教程:FontName属性
Access VBA教程:FontSize属性 Access VBA教程:FontUnderline属性
Access VBA教程:FontWeight属性 Access VBA教程:ForceNewPage属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号