MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Qual é a versão Access?

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 25 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 : 6398
    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 : 2902
    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 : 3962
    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 : 2902
    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 : 294
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 9 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 : 2902
    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)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 2902
    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 15 vez(es)


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

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 6398
    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 12 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 6398
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 10 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 : 6398
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 14 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 : 6398
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 294
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 17 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 : 294
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 2902
    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 5 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 : 2064
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 6398
    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 : 6398
    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 10/12/2019, 10:04