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 支援與意見反應。