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 using automation in Visual Basic 6
DescriptionThis example shows how to determine what version of Access is installed by using automation in Visual Basic 6.
KeywordsAccess, Access version, Microsoft Access, Registry, automation, Visual Basic 6
CategoriesOffice, Software Engineering, Tips and Tricks
 
Function GetAccessVersionName creates an Access.Application object and looks at its Version property. The other routines use the result returned by this one to get Access's number and "nice" name.
 
' Determine the Access version by creating
' an Access.Application object and checking
' its Version property.
Public Function GetAccessVersionName() As String
Dim obj As Object

    Set obj = CreateObject("Access.Application")
    GetAccessVersionName = "Access.Application." & _
        obj.Version
    obj.Quit
End Function

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

    txt = GetAccessVersionName()
    pos2 = InStrRev(txt, ".")
    pos1 = InStrRev(txt, ".", pos2 - 1)
    txt = Mid$(txt, pos1 + 1, pos2 - pos1 - 1)
    GetAccessVersionNumber = CInt(txt)
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