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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 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
Partager