Deploy Access

[Coy Howe]

I am trying to deploy an Access Database to unknown end users.
Currently I have a VB program that asks if they have Access 2002 or
later installed and then will load with or without run time depending on
their answer. I have found this simple question quite complex for some
of my users and am wonder if anyone knows of code that can do this
search automatically. Any help would be greatly appreciated.

Thanks



*** Sent via Developersdex http://www.developersdex.com ***

[Tom van Stiphout]

Re: Deploy Access

On Mon, 02 May 2005 20:37:16 GMT, Coy Howe <cfs@olypen.com > wrote:

You could write code like this (off the top of my head). Note: this
code says NOTHING about other versions of Access such as 2003, which
may very well be able to run your app as well.

Function IsAccessXPInsta lled() as Boolean
dim obj as Object
dim blnReturn as Boolean
set obj = CreateObject("A ccess.Applicati on.10)

' As you imagined, this is the code for Access 2003:
'set obj = CreateObject("A ccess.Applicati on.11)

if obj is nothing then
blnReturn = False
else
set obj=nothing
blnReturn=True
end if
IsAccessXPInsta lled = blnReturn
end function

[color=blue]
>I am trying to deploy an Access Database to unknown end users.
>Currently I have a VB program that asks if they have Access 2002 or
>later installed and then will load with or without run time depending on
>their answer. I have found this simple question quite complex for some
>of my users and am wonder if anyone knows of code that can do this
>search automatically. Any help would be greatly appreciated.
>
>Thanks
>
>
>
>*** Sent via Developersdex http://www.developersdex.com ***[/color]