excel vba - Check if MS Access is Installed -


i looking way check if ms access installed , if not exit sub or finish running rest of module. came across bit of code, unsure of how adapt suit needs.

function applicationisavailable(applicationclassname string) boolean  ' returns true if application available  ' example: if not applicationisavailable("outlook.application") exit sub      dim anyapp object        on error resume next        set anyapp = createobject(applicationclassname)        applicationisavailable = not anyapp nothing        set anyapp = nothing        on error goto 0  end function 

thank in advance if able assist.

i ended getting work not long after posted question. in case curious, used above code declare function , within module running used bit of code determine if available.

if applicationisavailable("access.application") = false msgbox ("you must have microsoft access installed use function") exit sub end if 

Comments

Popular posts from this blog

php - Invalid Cofiguration - yii\base\InvalidConfigException - Yii2 -

How to show in django cms breadcrumbs full path? -

ruby on rails - npm error: tunneling socket could not be established, cause=connect ETIMEDOUT -