MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

4 participantes

    [Resolvido]Mostra Versão atualizar

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 26/12/2022, 11:03

    Bom dia

    A função aberta no Win 11 continua a informar que é o Win 10


    [Resolvido]Mostra Versão  atualizar Sem_t299



    Public Function MostraVersao()
    Dim shell, strOS, strVerKey, strVersion
    Set shell = CreateObject("WScript.Shell")
    strOS = shell.ExpandEnvironmentStrings("%OS%")
    If strOS = "Windows_NT" Then
      strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
      strVersion = shell.RegRead(strVerKey & "ProductName") ' & " " & shell.regread(strVerKey & "CurrentVersion") & "." & shell.regread(strVerKey & "CurrentBuildNumber")
    Else
     strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\"
     strVersion = shell.RegRead(strVerKey & "ProductName") '& " " & shell.regread(strVerKey & "VersionNumber")
    End If
    MostraVersao = strVersion
    Set shell = Nothing
    End Function


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Silvio 26/12/2022, 20:59

    Assis, boa noite.

    O Win11 está estável, com bug ?

    É mais leve que o Win 10 ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 26/12/2022, 21:57

    Sìlvio

    Ainda é cedo para responder. Iniciei só na semana passada com um PC novo.

    O problema tem sido passar as Bases de Dados prontas para 64 Bits.

    Bom Ano 2023


    .................................................................................
    *** Só sei que nada sei ***
    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 912
    Registrado : 23/08/2010

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Mylton 27/12/2022, 00:36

    Apenas acompanhando.
    Interessante.
    A princípio, talvez, a mesma dificuldade do Crisóstomo
    Em outro tópico.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Silvio 27/12/2022, 09:53

    Pois é Mylton, muito estranho, muito estranho.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  JPaulo 28/12/2022, 14:46

    A Microsoft ainda não atualizou a chave de registro para mostrar o produto correto, mostra sempre o 10.

    No entanto consegue-se obter através do CurrentBuildNumber, se for 22000 então é o 11.

    Código:
    Public Function MostraVersao()
    Dim shell, strOS, strVerKey, strVersion

    Set shell = CreateObject("WScript.Shell")
    strOS = shell.ExpandEnvironmentStrings("%OS%")

        If strOS = "Windows_NT" Then
            strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuildNumber"
            strVerKey = shell.RegRead(strVerKey)
       
            If strVerKey = 22000 Then
              strVersion = "Windows 11 Enterprise"
              Else
              strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName"
              strVersion = shell.RegRead(strVerKey)
            End If
           
        Else
            strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\CurrentBuildNumber"
            strVerKey = shell.RegRead(strVerKey)
       
            If strVerKey = 22000 Then
              strVersion = "Windows 11 Enterprise"
              Else
              strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductName"
              strVersion = shell.RegRead(strVerKey)
            End If
        End If
    MostraVersao = strVersion
    Set shell = Nothing
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mostra Versão  atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mostra Versão  atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mostra Versão  atualizar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 28/12/2022, 19:51

    Boa noite JPaulo

    No meu não funciona

    Bom Ano


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 2/1/2023, 13:25

    up


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  JPaulo 2/1/2023, 13:47

    Assis, bom ano para si.

    Não funciona é muito vago;

    1º dá erro ?
    2º não dá resultado nenhum ?
    3º já depurou o código e foi vendo os resultados ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mostra Versão  atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mostra Versão  atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mostra Versão  atualizar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 2/1/2023, 19:37

    Boa noite JPaulo

    Estou com o Windows 11 64, e Office 2021 64, e mostra " Windows 10 Home "

    Teste por favor
    Anexos
    [Resolvido]Mostra Versão  atualizar AttachmentMostraVersão.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 8 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Silvio 3/1/2023, 10:35

    Boas.....

    Assis, o meu aqui mostra corretamente a versão a qual eu estou a utilizar: Win 10 Enterprise.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  JPaulo 3/1/2023, 15:04

    Assis, você já foi à sua chave de registro e viu se a build é a 22000

    SOFTWARE\Microsoft\Windows\CurrentVersion\CurrentBuildNumber


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mostra Versão  atualizar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mostra Versão  atualizar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mostra Versão  atualizar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 9/1/2023, 11:43

    Bom dia
    Peço desculpa pelo atrazo.

    Relembro que actualmento tenho Windows Home 11

    [Resolvido]Mostra Versão  atualizar Numloc11

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 11/1/2023, 21:13

    up


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 15/1/2023, 09:47

    Bom dia

    Alguém que esteja a usar o Windows 11 Home, tem a informação certa com este código ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 18/1/2023, 13:51

    Boa tarde

    up !!


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostra Versão  atualizar Empty Re: [Resolvido]Mostra Versão atualizar

    Mensagem  Assis 20/1/2023, 11:37

    Bom Dia
    Não funciona no Win 11 Home


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 26/1/2023, 22:25