Access.Version or SysCmd(acSysCmdAccessVer) will return the version number, i.e.
8 = Access 97
9 = Access 2000
10 = Access 2002/XP
11 = Access 2003
Access.Version only works in Access2000+, so SysCmd(acSysCmdAccessVer) is better.
You could have a variable ("AccVer") to get the version
Maybe: (Air code)
Code:
Dim AccVer as Integer
AccVer = SysCmd(acSysCmdAccessVer)
If AccVer <= 11 then
'Toolbar stuff
Else
' Ribbon stuff
End If
or (I prefer the Select Case construct)
Select Case AccVer
Case Is <= 11
'Toolbar stuff
Case Is >= 12
' Ribbon stuff
Case Else
End Select