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

2 participantes

    [Resolvido]Função funciona em 32 Bit mas não em 64

    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]Função funciona em 32 Bit mas não em 64 Empty [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 4/11/2022, 18:00

    Boa tarde Amigos

    Tenho esta função mas só funciona em 32, já tentei alterar "from Win32_LogicalDisk", para from Win64_LogicalDisk mas nada


     Public Function fncUnidadesDisco() As String
       
       Dim objWMIService As Object
       Dim Disk
       Dim S As String
       Set objWMIService = GetObject("winmgmts://localhost")
       For Each Disk In objWMIService.ExecQuery("select * from Win32_LogicalDisk")
           If Disk.DeviceID = "C:" Then
           'nao faz nada
           ElseIf Disk.DeviceID = "D:" Then
           'nao faz nada
           Else
               S = S & Disk.DeviceID & ";"
           End If
       Next




       If Len(S) > 1 Then fncUnidadesDisco = S
       
       Set objWMIService = Nothing
       End Function


    Se ficar a dar para os dois melhor ainda
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 4/11/2022, 18:06

    Olá Assis,

    Já experimentou essa função sem alterar nada no MsAccess a 64 bits, deu erro? onde?

    Fica a documentacao:
    Código:
    https://learn.microsoft.com/en-us/windows/win32/wmisdk/wmi-tasks--disks-and-file-systems

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 4/11/2022, 18:17

    Olá de novo Assis,

    Resumindo, essa função, está bem para 32 e 64 bits, acabei de testar veja
    [Resolvido]Função funciona em 32 Bit mas não em 64 0220

    Verifique na parte do IF ... o que você pretende fazer.

    Abraço
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 5/11/2022, 13:11

    Boa tarde Teixeira

    Ver imagem

    [Resolvido]Função funciona em 32 Bit mas não em 64 Sem_t296


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 6/11/2022, 13:59

    Olá Assis,

    É no sistema operativo ou MsAccess 64 que não funciona?
    O ideal será montar pequeno exemplo desse form a pesquisar as unidades e partilhar para os membros do forum poderem testar e dar o feedback

    Abraço e bom domingo
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 7/11/2022, 11:57

    Bom dia
    Teixera

    É no Access, na caixa de combinação.

    PS- Não consigo desmembrar para colocar um exemplo

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 8/11/2022, 12:57

    Olá Assis,

    Criei um pequeno exemplo, teste em 32 e 64 e depois diga se funciona ou não.

    Código:
    Código:
    Private Sub Form_Open(Cancel As Integer)
    '2022 Alvaro Teixeira para MaximoAccess
       Dim objWMIService As Object
       Dim Disk
       Set objWMIService = GetObject("winmgmts://localhost")
      
       For Each Disk In objWMIService.ExecQuery("select * from Win32_LogicalDisk")
           Me.Lista.AddItem Disk.DeviceID
       Next

       Set objWMIService = Nothing
    End Sub

    Abraço


    Última edição por Alvaro Teixeira em 11/11/2022, 11:29, editado 1 vez(es) (Motivo da edição : Novo ficheiro com este exemplo na mensagem nr 14)
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 8/11/2022, 13:41

    Teixeira

    Tem que ser uma caixa de combinação para o utilizador escolher a Drive que deseja

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 8/11/2022, 15:59

    Olá Assis,

    Não vamos fugir do tópico.

    1) o exemplo que partilhei identifica as unidades drive?
    2) funciona em 32 bits e 64 bits?

    Se sim a ambas, você só tem que ajustar o código ao seu sistema de segurança.

    Se usar o meu form, tem que verificar se o utilizador fez uma escolha na caixa de listagem Lista e fazer a copia.

    Abraço
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 9/11/2022, 12:24

    Boa tarde

    Teixeira

    O erro foi meu na mensagem Nº 4

    Faltou dizer para listar só as que estão Livres

    Desculpa e

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 9/11/2022, 22:10

    Olá Assis,

    Se não quer que liste as unidades C: e D: como tinha no seu código é só adicionar o IF.
    No entanto, volto a perguntar o exemplo funciona ou não a 32 e 64 BIts?
    Porque na minha opinião , como já tinha referido o código funciona em ambos.
    Quer o seu, quer o que disponibilizei.

    Abraço
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 10/11/2022, 09:31

    Teixeira
    No meu código 64 as letras das drives não aparecem.

    No 32 as letras das drives aparecem .

    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 10/11/2022, 11:43

    Teixeira

    Ver imagem 4 é no 32

    Esta agora é no 64 não aparece e letra ......

    [Resolvido]Função funciona em 32 Bit mas não em 64 Sem_t297


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 11/11/2022, 11:32

    Olá Assis,

    Fiz um novo exemplo com a Combo como tinha pedido.
    Teste em 32 e 64 Bits, deve funcionar em ambos


    Abraço
    Anexos
    [Resolvido]Função funciona em 32 Bit mas não em 64 AttachmentListarDriversSistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 6 vez(es)
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 11/11/2022, 14:15

    Boa tarde, Teixeira

    Funciona no 32 e 64, só tem um senão !!!!!

    Não reconhece o "Cartão de Memória" mas só no 64.



    O Amigo colocou a função, ao abrir o formulário.

    Em que acontecimento seria chamada se o código estiver num "Módulo"?

    Muito Obrigado



    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 11/11/2022, 15:39

    Olá Assis,

    Então estamos esclarecidos que o código funciona para detectar as unidades de drive a 32 e 64 Bits.
    Respondendo à sua pergunta pode ser onde quiser, por exemplo ter um botão "Verificar Drives Disponíveis para cópia".

    Não "reconhecer ..." pode ser da forma que está formatado, jverifique isso.
    Já experimentou com outro cartão, PenDrive ou disco externo?
    Se tiver possibilidade teste.

    Abraço
    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]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Assis 14/11/2022, 14:30

    Boa tarde

    A formatação do "Cartão de Memória é igual.

    Nas Pens não tem problemas

    Obrigado, vou dar como resolvido


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função funciona em 32 Bit mas não em 64 Empty Re: [Resolvido]Função funciona em 32 Bit mas não em 64

    Mensagem  Alvaro Teixeira 14/11/2022, 22:20

    cheers

      Data/hora atual: 27/1/2023, 04:45