Propriedade Application.FeatureInstall (Access)

Use a propriedade FeatureInstall para especificar ou determinar como o Microsoft Access lida com chamadas para métodos e propriedades que exigem recursos ainda não instalados. MsoFeatureInstall de leitura/gravação.

Sintaxe

expressão. FeatureInstall

expressão Uma variável que representa um Aplicativo objeto.

Comentários

Quando o código VBA faz referência a um objeto que não está instalado, a tecnologia Microsoft Installer tentará instalar o recurso necessário. Utilize a propriedade FeatureInstall para controlar o que acontecerá quando for feita uma referência a um objeto não instalado. Quando essa propriedade for definida como a configuração padrão, qualquer tentativa de usar um objeto não instalado fará com que o Installer tente instalar o recurso solicitado. Em algumas circunstâncias, isso poderá levar algum tempo, e o usuário poderá achar que o computador não está mais respondendo a outros comandos.

Você pode definir a propriedade FeatureInstall como msoFeatureInstallOnDemandWithUI para que os usuários possam ver que algo está acontecendo à medida que o recurso está sendo instalado. Você também pode definir a propriedade FeatureInstall como msoFeatureInstallNone a fim de interceptar o erro retornado e exibir sua própria caixa de diálogo para o usuário ou executar alguma outra ação personalizada.

Se você tiver a propriedade UserControl definida como False, os usuários não serão solicitados a instalar novos recursos, mesmo que a propriedade FeatureInstall esteja definida como msoFeatureInstallOnDemand. Se a propriedade UserControl for definida como True, um medidor de andamento de instalação será exibido se a propriedade FeatureInstall for definida como msoFeatureInstallOnDemand.

Exemplo

Este exemplo verifica o valor da propriedade FeatureInstall. Se a propriedade estiver definida como msoFeatureInstallNone, o código exibe uma caixa de mensagem que pergunta ao usuário se ele deseja alterar a configuração da propriedade. Se o usuário responder "Sim", a propriedade é definida como msoFeatureInstallOnDemand. O exemplo usa uma variável de objeto chamada MyOfficeApp que é dimensionada como um objeto de aplicativo.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.