Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
tu as plusieurs possibilités mais pas toutes aussi fiables qu'on le voudrait: la plus sûre est celle-ci : Dim Ref As Reference Public Function Vérif_Ref() For Each Ref In References If Ref.Name = "access" Then MsgBox Ref.FullPath Select Case Right(Ref.FullPath, 10) Case "msacc.olb" MsgBox "Access version 2002-2003" Case "msacc9.olb" MsgBox "Access version 2000" Case "msacc8.olb" MsgBox "Access version 97" Case Else MsgBox "Antérieur à 97" End Select End If Next Ref End Function
Sinon par les propriétés version tu peux obtenir d'autres renseignements: MsgBox Version & ";" & DBEngine.Version & ";" & CurrentDb.Version
Access Application.Version DbEngine.Version CurrentDb.Version Access DAO Jet
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"chantal" a écrit dans le message de news:46e801c42bcf$9a57b380$ Bonjour,
Est-ce qu'il y a un moyen rapide de détecter si le mdb est en access 97 ou de 2000 quand on a les 2 access d'installé sur notre poste ???
Bonjour.
tu as plusieurs possibilités mais pas toutes aussi fiables qu'on le
voudrait:
la plus sûre est celle-ci :
Dim Ref As Reference
Public Function Vérif_Ref()
For Each Ref In References
If Ref.Name = "access" Then
MsgBox Ref.FullPath
Select Case Right(Ref.FullPath, 10)
Case "msacc.olb"
MsgBox "Access version 2002-2003"
Case "msacc9.olb"
MsgBox "Access version 2000"
Case "msacc8.olb"
MsgBox "Access version 97"
Case Else
MsgBox "Antérieur à 97"
End Select
End If
Next Ref
End Function
Sinon par les propriétés version tu peux obtenir d'autres renseignements:
MsgBox Version & ";" & DBEngine.Version & ";" & CurrentDb.Version
Access Application.Version DbEngine.Version CurrentDb.Version
Access DAO
Jet
tu as plusieurs possibilités mais pas toutes aussi fiables qu'on le voudrait: la plus sûre est celle-ci : Dim Ref As Reference Public Function Vérif_Ref() For Each Ref In References If Ref.Name = "access" Then MsgBox Ref.FullPath Select Case Right(Ref.FullPath, 10) Case "msacc.olb" MsgBox "Access version 2002-2003" Case "msacc9.olb" MsgBox "Access version 2000" Case "msacc8.olb" MsgBox "Access version 97" Case Else MsgBox "Antérieur à 97" End Select End If Next Ref End Function
Sinon par les propriétés version tu peux obtenir d'autres renseignements: MsgBox Version & ";" & DBEngine.Version & ";" & CurrentDb.Version
Access Application.Version DbEngine.Version CurrentDb.Version Access DAO Jet