MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Qual é a versão Access?

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 16/7/2019, 22:47

    Estou montando meu instalador e preciso detectar corretamente quando o usuário usa o Access 2016, quando usa o Access 2019, e também quando usa o Access 365. Como não tenho essas versões, podem testar e dizer se o instalador detecta corretamente sua versão?

    Obs.: nada é instalado na máquina, apenas uma mensagem é exibida.

    Agradeço
    Anexos
    [Resolvido]Qual é a versão Access? AttachmentDetectaAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (303 Kb) Baixado 28 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 17/7/2019, 08:36

    Olá Ivan, teste em duas máquinas:

    [Resolvido]Qual é a versão Access? 076

    Abraço
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3101
    Registrado : 21/04/2011

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Marcelo David em 17/7/2019, 13:12

    Uso o Office 365, deu "Access desconhecido"


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Assis em 17/7/2019, 13:24

    Ivan

    Uso Access 2013 32

    Deu a informação certa

    [Resolvido]Qual é a versão Access? Sem_t107


    Também testei no Access Runtime e deu a mesma informação,


    .................................................................................
    *** Só sei que nada sei ***
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3101
    Registrado : 21/04/2011

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Marcelo David em 17/7/2019, 13:45

    Só complementando meu senário: Windows 10 Pro X64 - Office 365 x32.

    Obs:

    Em casa tenho o mesmo cenário e em ambos os locais meu MSACCESS.exe ficam nesse caminho:
    C:\Program Files (x86)\Microsoft Office\root\Office16


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  pcnet em 17/7/2019, 14:42

    Boa tarde,

    Tentei testar no pc do serviço e como não tenho permissão de administrador não deixou executar.

    Se houvesse forma de contornar essa permissão ficava excelente.

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 17/7/2019, 17:01

    Senhores, antes de tudo agradeço pelo retorno. No momento estou no trabalho e assim que chegar em casa verifico meu código, reajusto e upo uma atualização do executável da primeira mensagem para testarmos. Dando certo, compartilharei o método usado com linhas comentadas.

    pcnet, meus instaladores precisam de permissão de administrador pois quase sempre fazem instalações adicionais (exemplo: driver odbc mysql) ou atualizações mínimas necessárias (services packs) e usam o diretório C para instalação do aplicativo. Tentarei remover esse requisito de permissão já que é apenas para um teste aqui.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 18/7/2019, 05:21

    Voltei, senhores. Enfim encontrei o problema. Uma parte da estrutura do instalador tentar ler a chave abaixo para descobrir se o office é 32 ou 64 bits
    Código:
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\VersãoApplicationDoOffice\Outlook\Bitness

    Parecia algo simples, mas o instalador não conseguia o fazer.

    Muitos testes e descubro que para o instalador diversas chaves no registro sequer existiam. Refiz os métodos terceirizando o serviço para um .vbs e também para um .bat e mesmo assim não dava certo quando os executava durante a inicialização do instalador, tal qual acontecia comigo neste tópico.

    Fui ler. Então descobri que o editor de registros do windows pode ser lido de dois modos (32 ou 64 bits) dependendo da ferramenta/programa. Bastou então adicionar a linha abaixo na seção setup do instalador para que assim o regedit pudesse ser lido de ambas as formas (tanto 32 como 64 bits)
    Código:
    ArchitecturesInstallIn64BitMode=x64

    Não sei se isso acontece desde sempre pois estou me deparando com o problema só hoje quando tenho necessidade de fazer verificações na máquina do cliente para tomadas de decisões durante uma instalação automática.

    Aguardo retorno dos senhores sobre o funcionamento do arquivo anexo a esta mensagem.
    Anexos
    [Resolvido]Qual é a versão Access? AttachmentDetectaAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (303 Kb) Baixado 11 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3101
    Registrado : 21/04/2011

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Marcelo David em 18/7/2019, 11:28

    Aqui ainda continuou a dar Access desconhecido.
    Mandei um print do meu Regedit para você ver como
    é no meu senário.
    Anexos
    [Resolvido]Qual é a versão Access? Attachmentimagens.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 8 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 18/7/2019, 12:12

    Marcelo, grato. No seu registro, Quais valores existem nos caminhos abaixo?

    Código:
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE\Path
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Outlook\Bitness
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Outlook\Bitness

    E como o office aparece em programas e recursos no seu painel de controle?

    Exemplo:
    [Resolvido]Qual é a versão Access? Pcna10


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3101
    Registrado : 21/04/2011

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Marcelo David em 18/7/2019, 12:31

    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE\Path

    Print da chave acima na imagem 1.

    Essas 2 chaves são diferentes qui, elas:
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Outlook\Bitness
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Outlook\Bitness

    Elas não tem o Outlook\Bitness, são assim:
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0

    O Outlook\Bitness está abaixo das duas, assim:
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0
    ..aqui tem outras que não vem ao caso...
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\Outlook

    E mesmo assim não tem dentro de Outlook a pasta: Bitness.

    Veja nas imagens.
    Anexos
    [Resolvido]Qual é a versão Access? Attachmentimagens2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (148 Kb) Baixado 16 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 18/7/2019, 15:37

    Ok, então. O office 365 não usa essa parte do registro. Farei este tratamento no código e retorno aqui. Creio que o office 2019 já seja detectado pelo instalador.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 18/7/2019, 15:53

    Olá a todos,

    Ivan, com o novo teste obtive o mesmo resultado da mensagem nº 2.
    Estive e pesquisar um pouco, verifiquem com teste script:
    Código:
    Option Explicit
    'ahteixeira 2019 para MaximoAccess
    Dim oShell
    Dim sTemp
    Set oShell = CreateObject("WScript.Shell")
    On Error Resume Next
    sTemp = oShell.RegRead("HKCR\Access.Application\CurVer\")
    If Len(sTemp & "") > 2 Then sTemp= Replace(Right(sTemp, 2), ".", "")
    MsgBox sTemp

    Não tenho nenhuma máquina que não tenha o "office" instalado para testar.
    Mas em todas as que testei funcionou, veja se por aqui consegue resolver.

    Outra coisa, testei no Access 2016 e 2019 e em ambas apresenta 16
    Quem poder testar o script e partilhar o resultado será otimo.

    Abraço a todos
    Anexos
    [Resolvido]Qual é a versão Access? AttachmentvbsAccessVersion.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 16 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 18/7/2019, 16:07

    Exatamente, mestre Alvaro. Do Access 2016 em diante o resultado para consultas sobre a versão do aplicativo (application.version) será sempre 16.0. A questão agora e detectar quando é o office 2016, 2019 e 365.

    Ontem adaptei o código e consegui detectar quando se tratava do office 2019. Pelas imagens do Marcelo vejo que o office 365 trabalha um pouco diferente com as chaves no registro.

    Farei uma versão com msgbox de cada etapa executada para que possam acompanhar o que o instalador verifica.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 18/7/2019, 16:34

    Olá Ivan,

    Ainda existe pouca informação sobre o tema.
    Eu creio que o Office 365 com licença para Ms-Access o que faz é disponibilizar a última versão "tradicional" do Access.
    No artigo abixo, podemos verificar que é a versão 16.
    support.office.com/pt-br/article/access-incluído-como-parte-do-office-365-business-e-business-premium-f55c8362-5816-4f8b-897d-0a05e7ba0fef

    O que não compreendo é a versão 2019 ser a mesma que o 2016, ou seja 16.

    Estamos a desvendar.

    cheers
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 19/7/2019, 00:03

    Eis o roteiro que o instalador faz (em vbscript). Alvaro, veja se detecta sua versão 2019.

    Código:
    option explicit

    const HKLM = &H80000002
    const SEMERRO = 0

    dim objEdReg
    dim strVerAcc

    Set objEdReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

    if objEdReg.GetStringValue(HKLM, "Software\Microsoft\Windows\CurrentVersion\App Paths\msaccess.exe", "Path", strVerAcc) <> SEMERRO then
       call msgbox("Nenhuma versão Access detectada.", vbinformation,"Ops...")
    else

       strVerAcc = right(strVerAcc, 3)
       strVerAcc = left(strVerAcc, 2)

       select case strVerAcc

          case "12"
             call msgbox("Access 2007 " & Bits(), vbinformation, "Informação")

          case "14"
             call msgbox("Access 2010 " & Bits(), vbinformation, "Informação")

          case "15"
             call msgbox("Access 2013 " & Bits(), vbinformation, "Informação")

          case "16"
             call fncTrabalhaVersao16

          case else
             call msgbox("Você é de outro mundo por está muito atualizado ou muito desatualizado.", vbexclamation, "Alienígena")

       end select

    end if

    set objEdReg = nothing

    sub fncTrabalhaVersao16()

       dim strKeyPath
       dim arrSubKeys
       dim subkey
       dim strVerOffice

       if win64 and Bits() = "32 bits" then
          strKeyPath = "Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
       else
          strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
       end if

       call objEdReg.EnumKey(HKLM, strKeyPath, arrSubKeys)

       for each subkey in arrSubKeys

          if left(subkey, 1) <> "{" Then

             call objEdReg.GetStringValue(HKLM, strKeyPath & "\" & subkey, "DisplayName", strVerOffice)
                
             if instr(strVerOffice, "Microsoft Office") then
                if instr(strVerOffice, "2016") then
                   call msgbox("Access 2016 " & Bits(), vbinformation, "Informação")
                   exit sub
                elseif instr(strVerOffice, "2019") then
                   call msgbox("Access 2019 " & Bits(), vbinformation, "Informação")
                   exit sub
                elseif instr(strVerOffice, "365") then
                   call msgbox("Access 365 " & Bits(), vbinformation, "Informação")
                   exit sub
                end if
             end if

          end if

       next

       call msgbox("Access desconhecido.", vbexclamation, "Ops...")

    end sub

    function win64()

       dim objWMIService
       dim colOperatingSystems
       dim objOperatingSystem

       set objWMIService = getObject("winmgmts:\\.\root\cimv2")
       set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

       for each objOperatingSystem in colOperatingSystems
          win64 = instr(objOperatingSystem.OSArchitecture,"64") > 0
       next

    end function

    function Bits()

       dim strBits

       if win64 then
          if objEdReg.GetStringValue(HKLM, "Software\Microsoft\Office\" & strVerAcc & ".0\Outlook", "Bitness", strBits) = SEMERRO then
             if strBits = "x64" then
                Bits = "64 bits"
             else
                Bits = "32 bits"
             end if
          else
             Bits = "32 bits"
          end if
       else
          Bits = "32 bits"
       end if

    end function
    Anexos
    [Resolvido]Qual é a versão Access? AttachmentDetectaAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 13 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 19/7/2019, 12:36

    Olá Ivan, a mesma situação da mensagem nº 2.

    E como podemos verificar na imagem o 2019 ainda é a versão 16.
    Parece que no 365 também é, veja:
    tomtalks.blog/2016/01/choose-office-2016-branch-local-group-policy/

    Este artigo apesar de ser para o 2010 descreve bem as entradas de registo do Office:
    support.microsoft.com/en-us/help/2186281/description-of-the-numbering-scheme-for-product-code-guids-in-office-2

    Também se levanta outra questão no script, pois pode ter o Office instalado sem o Access.
    Veja melhor o meu ultimo exemplo e solicito aos colegas para testar numa máquina com Office sem o Access instalado.

    Abraço a todos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 20/7/2019, 05:32

    Mestre Marcelo, mestre Alvaro e demais usuários, pelas situações ocorridas, imagens anexadas, artigos aqui indicados, e tendo agora instalado uma versão ClickToRun (assim como vocês), creio ter montado o script correto.

    Código:
    option explicit

    const HKLM = &H80000002
    const SEMERRO = 0

    dim objEdReg
    dim strVerAcc
    dim booClickToRun

    Set objEdReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

    if objEdReg.GetStringValue(HKLM, "Software\Microsoft\Windows\CurrentVersion\App Paths\msaccess.exe", "Path", strVerAcc) <> SEMERRO then
      call msgbox("Nenhuma versão Access detectada.", vbinformation,"Ops...")
    else

      strVerAcc = right(strVerAcc, 3)
      strVerAcc = left(strVerAcc, 2)

      select case strVerAcc

          case "12"
            call msgbox("Access 2007 " & Bits(), vbinformation, "Informação")

          case "14"
            call msgbox("Access 2010 " & Bits(), vbinformation, "Informação")

          case "15"
            call msgbox("Access 2013 " & Bits(), vbinformation, "Informação")

          case "16"
            call fncTrabalhaVersao16

          case else
            call msgbox("Você é de outro mundo por está muito atualizado ou muito desatualizado.", vbexclamation, "Alienígena")

      end select

    end if

    set objEdReg = nothing

    sub fncTrabalhaVersao16()

      dim strKeyPath
      dim arrSubKeys
      dim subkey
      dim strVerOffice

      booClickToRun = false

      if win64 then
          if Bits() = "32 bits" then
            if not booClickToRun then
                strKeyPath = "Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
            else
                strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
            end if
          else
            strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
          end if
      else
          strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
      end if

      call objEdReg.EnumKey(HKLM, strKeyPath, arrSubKeys)

      for each subkey in arrSubKeys

          if left(subkey, 1) <> "{" Then

            call objEdReg.GetStringValue(HKLM, strKeyPath & "\" & subkey, "DisplayName", strVerOffice)
               
            if instr(strVerOffice, "Microsoft Office") or instr(strVerOffice, "Microsoft Access") then
                if instr(strVerOffice, "2016") then
                  call msgbox("Access 2016 " & Bits(), vbinformation, "Informação")
                  exit sub
                elseif instr(strVerOffice, "2019") then
                  call msgbox("Access 2019 " & Bits(), vbinformation, "Informação")
                  exit sub
                elseif instr(strVerOffice, "365") then
                  call msgbox("Access 365 " & Bits(), vbinformation, "Informação")
                  exit sub
                end if
            end if

          end if

      next

      call msgbox("Access desconhecido.", vbexclamation, "Ops...")

    end sub

    function win64()

      dim objWMIService
      dim colOperatingSystems
      dim objOperatingSystem

      set objWMIService = getObject("winmgmts:\\.\root\cimv2")
      set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

      for each objOperatingSystem in colOperatingSystems
          win64 = instr(objOperatingSystem.OSArchitecture,"64") > 0
      next

    end function

    function Bits()

      dim strBits

      strBits = ""

      if not win64 then
          Bits = "32 bits"
          exit function
      end if

      if objEdReg.GetStringValue(HKLM, "Software\Microsoft\Office\" & strVerAcc & ".0\Outlook", "Bitness", strBits) <> SEMERRO then
          if objEdReg.GetStringValue(HKLM, "Software\Microsoft\Office\ClickToRun\Configuration", "Platform", strBits) = SEMERRO then
            booClickToRun = true
          else
            Bits = "32 bits"
            exit function
          end if
      end if

      if strBits = "x64" then
          Bits = "64 bits"
      else
          Bits = "32 bits"
      end if

    end function
    Anexos
    [Resolvido]Qual é a versão Access? AttachmentDetectaAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 16 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 20/7/2019, 18:54

    Olá a todos,

    Ivan, agora funcionou no Access 2019 32 Bits e também no 2016 32 Bits também.
    Foi nos que tenho oportunidade de testar.

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 20/7/2019, 20:41

    Obrigado pelo retorno, mestre Alvaro. Vale-me muito.

    Veremos como o código se sairá com office 365.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  pcnet em 21/7/2019, 18:32

    Boa tarde mestre Ivan,

    Tentei testar no meu pc pessoal com o Windows 8.1 instalado, mas não tive sucesso.
    Apareceu este erro:
    [Resolvido]Qual é a versão Access? Erro11


    Testei com outro exemplo partilhado pelo mestre Álvaro Teixeira e apresentou a versão instalada.
    [Resolvido]Qual é a versão Access? Versze11

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 21/7/2019, 20:47

    Ok, pcnet... esse problema vai ser algo mais específico da linguagem vbscrip com o win8.1

    Havia deixado nessa linguagem pra que pudessem ver como as verificações são feitas.

    Tenta no instalador real em formato .exe

    Aguardo...
    Anexos
    [Resolvido]Qual é a versão Access? AttachmentDetectaAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (303 Kb) Baixado 22 vez(es)


    Última edição por IvanJr. em 21/7/2019, 21:39, editado 1 vez(es) (Razão : Atualização de arquivo)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  pcnet em 21/7/2019, 21:06

    Boa noite mestre Ivan,

    Testado com êxito cheers

    Eis o teste:
    [Resolvido]Qual é a versão Access? Teste_10

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 21/7/2019, 21:40

    Very Happy bounce

    Valeu, meu nobre. Obrigado pelo retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3101
    Registrado : 21/04/2011

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Marcelo David em 22/7/2019, 02:02

    Windows 10 x64 - Office 365 x32. Deu certo aqui!!
    Anexos
    [Resolvido]Qual é a versão Access? Attachmentfunfou.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 6 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2091
    Registrado : 13/04/2012

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  Fernando Bueno em 22/7/2019, 03:26

    Boa noite, funcionou na perfeição!!

    [Resolvido]Qual é a versão Access? Sem_tz10


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Qual é a versão Access? 16rzeq
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 23/7/2019, 02:38

    cheers

    Agradeço por me ajudarem testando e dando os retornos.

    Tudo resolvido então.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 23/7/2019, 04:20



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 4/8/2019, 03:18

    Enriquecendo o tópico
    mendipdatasystems.co.uk/access-office365-win-check/4594488974


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 4/8/2019, 12:15

    Olá Ivan,

    Obrigado pela dica, o fórum agradece.

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6762
    Registrado : 15/03/2013

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  ahteixeira em 30/8/2019, 15:57

    Olá a todos,

    Ivan, Passeio por um computador com o Office Casa e Negócios (que não tem Access), por essa razão é que tem o Runtime do 2003 e testei com a última versão disponibilizada:
    [Resolvido]Qual é a versão Access? 087

    Com o script da mensagem nº 13 apresenta que tem a versão 11.

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]Qual é a versão Access? Empty Re: [Resolvido]Qual é a versão Access?

    Mensagem  DamascenoJr. em 1/9/2019, 02:09

    Obrigado por informar, meste Alvaro.

    Mensagem personalizada nos conformes do código da mensagem nº 18 rsrsrs



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 8/7/2020, 15:48