Código: Seleccionar todo
Public Function funServicePack() As String
Rem http://www.accessdemo.info
Rem Solo funciona a partir de Access +2000
Rem Sin SP = Sin Service Pack
Rem Los datos estan sacados de distintas Webs No oficiales asi que podria contener algun error
Rem En caso de detectar un error decirlo y lo arreglo
Dim lngVersion As Long
lngVersion = (Val(SysCmd(acSysCmdAccessVer)) * 10 ^ 4) + SysCmd(715)
' MsgBox lngVersion
' Debug.Print "Version: " & lngVersion
Select Case lngVersion
Rem -> Access 2000
Case 92000 To 93821: funServicePack = "Access 2000 Sin SP"
Case 93822 To 94505: funServicePack = "Access 2000 SP1"
Case 94506 To 96619: funServicePack = "Access 2000 SP2"
Case 96620 To 96999: funServicePack = "Access 2000 SP3"
Rem -> Access 2002
Case 100000 To 103408: funServicePack = "Access 2002 Sin SP"
Case 103409 To 104301: funServicePack = "Access 2002 SP1"
Case 104302 To 106500: funServicePack = "Access 2002 SP2"
Case 106501 To 109999: funServicePack = "Access 2002 SP3"
Rem -> Access 2003
Case 110000 To 116354: funServicePack = "Access 2003 Sin SP"
Case 116355 To 116565: funServicePack = "Access 2003 SP1"
Case 116566 To 118165: funServicePack = "Access 2003 SP2"
Case 118166 To 119999: funServicePack = "Access 2003 SP3"
Rem -> Access 2007
Case 120000 To 124517: funServicePack = "Access 2007 (Beta-1)"
Case 124518 To 126210: funServicePack = "Access 2007 Sin SP"
Case 126211 To 126422: funServicePack = "Access 2007 SP1"
Case 126423 To 129999: funServicePack = "Access 2007 SP2"
Rem -> Access 2010
Rem https://support.microsoft.com/en-us/help/2687455
Case 140000 To 144762: funServicePack = "Access 2010 (Beta-1)"
Case 144763 To 146028: funServicePack = "Access 2010 Sin SP"
Case 146029 To 147014: funServicePack = "Access 2010 SP1"
Case 147015 To 149999: funServicePack = "Access 2010 SP2"
Rem -> Access 2013
Case 150000 To 154762: funServicePack = "Access 2013 (Beta-1)"
Case 154763 To 156028: funServicePack = "Access 2013 Sin SP"
Case 156029 To 157014: funServicePack = "Access 2013 SP1"
Rem -> Access 2016
Case 160000 To 164762: funServicePack = "Access 2016 (Beta-1)"
Case 164763 To 166028: funServicePack = "Access 2016 Sin SP"
Case 166029 To 167766: funServicePack = "Access 2016 SP1"
Case 167767 To 169999: funServicePack = "Access 2016 SP2"
Rem -> Caso No previsto
Case Else
Debug.Print "Version: " & lngVersion
funServicePack = "Version No prevista: " & lngVersion
End Select
MsgBox funServicePack, vbInformation, "javier.mil informa:"
End Function
AVISO: Los datos están sacados de distintas Webs No oficiales así que podría contener algún error
.
