Comprobar Service Pack

Un lugar dónde compartir funciones, procedimientos y aplicaciones
Avatar de Usuario
javier.mil
Colaborador
Reto01
Mensajes: 28
Registrado: Jue Mar 16, 2017 5:21 pm

Comprobar Service Pack

Mensajepor javier.mil » Mar Abr 04, 2017 9:22 am

Como detectar el Service Pack instalado de Access, es decir una misma versión de Access puede contener distintos actualizaciones con lo que el comportamiento de la aplicación podría ser diferente en cada instalación.. Sirve para asegurase que estamos trabajando en la misma versión y la misma actualización.


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
.

Volver a “Almacén Accesiano”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado