Home
Search
 
What's New
Index
Books
Links
Q & A
Newsletter
Banners
 
Feedback
Tip Jar
 
C# Helper...
 
XML RSS Feed
Follow VBHelper on Twitter
 
 
 
MSDN Visual Basic Community
 
 
 
 
 
TitleDetermine what version of Access is installed by reading Registry values in Visual Basic 6
DescriptionThis example shows how to determine what version of Access is installed by reading Registry values in Visual Basic 6.
KeywordsAccess, Access version, Microsoft Access, Registry, Visual Basic 6
CategoriesOffice, Software Engineering, Tips and Tricks
 
Function GetAccessVersionName looks at the Registry key HKEY_CLASSES_ROOT\Access.Application\CurVer to get the current Access version. The other routines use the result returned by this one to get Access's number and "nice" name.
 
' Determine the Access version by looking at
' HKEY_CLASSES_ROOT\Access.Application\CurVer.
Public Function GetAccessVersionName() As String
    GetAccessVersionName = _
        GetRegKeyValue(HKEY_CLASSES_ROOT, _
            "Access.Application\CurVer", "")
End Function

' Get the Access version number from the name.
Public Function GetAccessVersionNumber() As Integer
Dim txt As String
Dim pos As Integer

    txt = GetAccessVersionName()
    pos = InStrRev(txt, ".")
    GetAccessVersionNumber = CInt(Mid$(txt, pos + 1))
End Function

' Get the nice style of the Access version name.
Public Function GetAccessVersionNiceName() As String
    Select Case GetAccessVersionNumber
        Case 8
            GetAccessVersionNiceName = "Access 97"
        Case 9
            GetAccessVersionNiceName = "Access 2000"
        Case 10
            GetAccessVersionNiceName = "Access 2002" ' XP
        Case 11
            GetAccessVersionNiceName = "Access 2003"
        Case 12
            GetAccessVersionNiceName = "Access 2007"
        Case Else
            GetAccessVersionNiceName = "unknown"
    End Select
End Function
 
 
Copyright © 1997-2010 Rocky Mountain Computer Consulting, Inc.   All rights reserved.
  Updated