Свойство Application.FeatureInstall (Access)

  • Статья

Используйте свойство FeatureInstall , чтобы указать или определить, как Microsoft Access обрабатывает вызовы методов и свойств, для которых требуются еще не установленные компоненты. Чтение и запись MsoFeatureInstall.

Синтаксис

expression. FeatureInstall

выражение: переменная, представляющая объект 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 и обратная связь.