|
|
|
| Title | Determine what version of Access is installed by reading Registry values in Visual Basic 6 |
|---|
| Description | This example shows how to determine what version of Access is installed by reading Registry values in Visual Basic 6. |
|---|
| Keywords | Access, Access version, Microsoft Access, Registry, Visual Basic 6 |
|---|
| Categories | Office, 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
|
| |
|
| |
|
|
