Access Version being used

  • Thread starter Thread starter oldjay
  • Start date Start date
O

oldjay

This work only if the version of Access matches the version of Excel. How do
you detect the Access version being used?


Private Sub CommandButton5_Click() 'Go to customer database
Dim X As String
Dim nVer As Long

nVer = Val(Application.Version)

MainMenu.Hide

If nVer = 11 Then

X = Shell("C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE
\\SERVER3\database\Customers.MDB", 1)
Else

If nVer = 12 Then

X = Shell("c:\Program Files\Microsoft Office\Office12\MSACCESS.EXE
\\SERVER3\database\Customers.MDB", 1)

Else

If nVer = 9 Then

X = Shell("E:\Program Files\Microsoft Office\Office\MSACCESS.EXE
\\SERVER3\database\Customers.MDB", 1)

End If
End If
End If

Application.Goto Reference:="Company"
Range("A3").SelectX = Shell("d:\Program Files\Microsoft
Office\Office11\MSACCESS.EXE \\SERVER3\database\Customers.MDB", 1)
End Sub
 
I don't understand. We have a Access database created with 97 and it is used
with Access & Excel 2000. 2003 and 2007. as the working macro below shows
 
Back
Top