Déterminer la version d'Access utilisée par l'application

[mout1234]

Bonjour,

Avec notamment l'aide précieuse de SkillyRoad (pléonasme!), j'ai écris cette petite fonction pour afficher la version d'Access utilisée (typiquement dans une fenêtre A Propos de ...)

La fonction détermine:
- Quelle version d'Access est installée parmis celles prévues (à adapter...)
- S'il s'agit ou non d'un Runtime
- le numéro de version détaillé. Ce dernier permet indirectement de savoir si Access est mis à jour (service pack).

Public Function VersionAccess() As String
On Error Resume Next
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Dim sLib As String
 
'version?
sLib = "Microsoft Access " & Choose(CInt(Val(SysCmd(acSysCmdAccessVer))) - 8, "2000", "2002", "2003", "2007")
 
'runtime?
If SysCmd(acSysCmdRuntime) Then sLib = "Runtime " & sLib
    
'numéro de version?
sLib = sLib & " (" & Fso.GetFileVersion(SysCmd(acSysCmdAccessDir) & "msaccess.exe") & ")"
 
VersionAccess = sLib
End Function
 

Concernant la version, voici les valeurs obtenues sur différentes machines de test:

• Access 97 SR2 : 8.0.0.5903
• Access 2000: 9.0.0.2719
• Access 2002: 10.0.2627.1
• Access 2003: 11.0.5614.0
• Access 2003 SP2: 11.0.6566.0
• Access 2007: 12.0.4518.1014

Bon dev,
Mout

Edit par Lou Pitchoun :
Ajout de la version Access 97 SR2

[Domi2]

Bonjour Mout,

Et merci... C'est bien plus complet que la fonction Version d'Access

J'adopte !

Domi2