Application.FeatureInstall Property (Access)
You can use the FeatureInstall property to specify or determine how Microsoft Access handles calls to methods and properties that require features not yet installed. Read/write MsoFeatureInstall.
When VBA code references an object that is not installed the Microsoft Installer technology will attempt to install the required feature. You use the FeatureInstall property to control what happens when an uninstalled object is referenced. When this property is set to the default, any attempt to use an uninstalled object causes the Installer technology to try to install the requested feature. In some circumstances this may take some time, and the user may believe that the machine has stopped responding to additional commands.
You can set the FeatureInstall property to msoFeatureInstallOnDemandWithUI so users can see that something is happening as the feature is being installed. You can set the FeatureInstall property to msoFeatureInstallNone if you want to trap the error that is returned and display your own dialog box to the user or take some other custom action.
If you have the UserControl property set to False, users will not be prompted to install new features even if the FeatureInstall property is set to msoFeatureInstallOnDemand. If the UserControl property is set to True, an installation progress meter will appear if the FeatureInstall property is set to msoFeatureInstallOnDemand.
This example checks the value of the FeatureInstall property. If the property is set to msoFeatureInstallNone, the code displays a message box that asks the user whether they want to change the property setting. If the user responds "Yes", the property is set to msoFeatureInstallOnDemand. The example uses an object variable named MyOfficeApp that is dimensioned as an application object.
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