A2K - how to detect Vista?

#1

My Access 2000 app doesn't work correctly under Vista for lord knows what
reason.

Any code for detected Vista when I start the database? Nothing shows up in
a search of this group, though feel free to correct me.

#2

Deano wrote:

Quote:

My Access 2000 app doesn't work correctly under Vista for lord knows what
reason.

Any code for detected Vista when I start the database? Nothing shows up in
a search of this group, though feel free to correct me.

Maybe this link has the info you need.

http://www.mvps.org/access/api/api0055.htm

Help
http://www.youtube.com/watch?v=9ibX3TejlZE

#3

"Salad" <oil (AT) vinegar (DOT) com> schreef in bericht news:13pc51qdgp6mh3b (AT) corp (DOT) supernews.com...

Quote:

Deano wrote:

My Access 2000 app doesn't work correctly under Vista for lord knows what
reason.

Any code for detected Vista when I start the database? Nothing shows up in
a search of this group, though feel free to correct me.

Maybe this link has the info you need.
http://www.mvps.org/access/api/api0055.htm

Also look here
http://www.vbforums.com/showthread.php?t=434149

Arno R

#4

"Deano" <deano (AT) mailinator (DOT) com> wrote

Quote:

Any code for detected Vista when I start the database?

I know some who'd say, "Make handsigns to ward off evil spirits, and watch
the reaction. If that causes a response, call a qualified exorcist."

#5

Salad <oil (AT) vinegar (DOT) com> wrote:

Quote:

Any code for detected Vista when I start the database? Nothing shows up in
a search of this group, though feel free to correct me.

Maybe this link has the info you need.
http://www.mvps.org/access/api/api0055.htm

It's a bit out of date. I'm sure there's something newer somewhere at vbnet.mvps.org

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

#6

"Tony Toews [MVP]" <ttoews (AT) telusplanet (DOT) net> wrote

Quote:

Salad <oil (AT) vinegar (DOT) com> wrote:

Any code for detected Vista when I start the database? Nothing shows
up in
a search of this group, though feel free to correct me.

Maybe this link has the info you need.
http://www.mvps.org/access/api/api0055.htm

It's a bit out of date. I'm sure there's something newer somewhere at
vbnet.mvps.org

Problem is I'm not sure I can convert vb.net code into VBA, certainly not
this sort of thing. If anyone has then please post.

#7

On Jan 24, 4:43 am, "Deano" <de... (AT) mailinator (DOT) com> wrote:

Quote:

"Tony Toews [MVP]" <tto... (AT) telusplanet (DOT) net> wrote in messagenews:licgp3941mduna3h6gc2sgbt8sqldp1bub (AT) 4ax (DOT) com...> Salad <o... (AT) vinegar (DOT) com> wrote:

Any code for detected Vista when I start the database? Nothing shows
up in
a search of this group, though feel free to correct me.

Maybe this link has the info you need.
http://www.mvps.org/access/api/api0055.htm

It's a bit out of date. I'm sure there's something newer somewhere at

vbnet.mvps.org

Problem is I'm not sure I can convert vb.net code into VBA, certainly not
this sort of thing. If anyone has then please post.

Does this help?

Private Declare Function GetFileVersionInfo& Lib "Version" _
Alias "GetFileVersionInfoA" (ByVal FileName$, ByVal lptr&, _
ByVal lSize&, lpvData As Any)

Public Function Version$(ByVal FullPath$)
'2003/02/26 attribution to David Epson
Dim iBuf%(0 To 99)
GetFileVersionInfo FullPath, 0&, 200, iBuf(0)
Version = iBuf(25) & "." & iBuf(24) & "." & iBuf(27) & "." &
iBuf(26)
End Function

Sub test()
Debug.Print Version(Environ$("WINDIR") & "\Explorer.Exe")
End Sub

#8

"Deano" <deano (AT) mailinator (DOT) com> wrote:

Quote:

Maybe this link has the info you need.
http://www.mvps.org/access/api/api0055.htm

It's a bit out of date. I'm sure there's something newer somewhere at
vbnet.mvps.org

Problem is I'm not sure I can convert vb.net code into VBA, certainly not
this sort of thing.

That website was named vbnet long before vb.net was a gleam in someone's eye at
Microsoft. That website is specifically for VB6.0 API calls almost all of which are
copy and paste into Access (and others) VBA.

Tony

--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

#9

"Deano" <deano (AT) mailinator (DOT) com> wrote

Quote:

"Tony Toews [MVP]" <ttoews (AT) telusplanet (DOT) net> wrote in message
news:licgp3941mduna3h6gc2sgbt8sqldp1bub (AT) 4ax (DOT) com...
Salad <oil (AT) vinegar (DOT) com> wrote:

Any code for detected Vista when I start the database? Nothing shows
up in
a search of this group, though feel free to correct me.

Maybe this link has the info you need.
http://www.mvps.org/access/api/api0055.htm

It's a bit out of date. I'm sure there's something newer somewhere at
vbnet.mvps.org

Problem is I'm not sure I can convert vb.net code into VBA, certainly not
this sort of thing. If anyone has then please post.

You could try checking the registry at:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

My XP SP2 shows as 5.1. Vista will most likely be 6.x (no vista here, so I'm
unable to test).

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

A2K - how to detect Vista?

comp.databases.ms-access comp.databases.ms-access

A2K - how to detect Vista? - 01-22-2008 , 09:09 AM

Re: A2K - how to detect Vista? - 01-22-2008 , 10:05 AM

Re: A2K - how to detect Vista? - 01-22-2008 , 10:20 AM

Re: A2K - how to detect Vista? - 01-22-2008 , 09:07 PM

Re: A2K - how to detect Vista? - 01-24-2008 , 12:38 AM

Re: A2K - how to detect Vista? - 01-24-2008 , 03:43 AM

Re: A2K - how to detect Vista? - 01-24-2008 , 04:17 AM

Re: A2K - how to detect Vista? - 01-24-2008 , 02:52 PM

Re: A2K - how to detect Vista? - 01-24-2008 , 04:25 PM