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]Verificar se existe .DLL no windows\system

    Compartilhe

    falcato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 29/03/2012

    Verificar se existe .DLL no windowssystem

    Mensagem  falcato em 30/5/2012, 11:50

    Bom dia,
    Qual a melhor maneira num botão de impressão de um formulário, vá verificar se existe no c: \windows\system32 uma determinada DLL (por ex. 123.dll) e se existir continuar, se não existir faça cancelar o evento.
    Obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  JPaulo em 30/5/2012, 12:06

    Ola seja bem vindo ao fórum;

    1º Cole num modulo novo, o código que está neste .txt e salve.

    2º Faça o teste num botão, assim;


    Private Sub SeuBotão_Click()
    If FileExists("c:\windows\system32\mycomput.dll") = True Then
    MsgBox "Sim existe...", vbInformation
    Else
    MsgBox "Não existe...", vbCritical
    End If
    End Sub







    Anexos
    ModVerificaFile.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 48 vez(es)


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  JPaulo em 30/5/2012, 12:10

    Outra alternativa:


    'Habilite a Referencia VBA Microsoft Scripting Runtime

    'Verifica se o ficheiro existe:



    Sub VerificaSeFicheiroExiste()
    Dim fso
    Dim file As String
    file = "c:\windows\system32\mycomput.dll" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox file & " não encontrado.", vbCritical, "Não Encontrado"
    Else
    MsgBox file & " encontrado.", vbInformation, "Encontrado"
    End If
    End Sub


    'Para chamar o Sub

    Private Sub SeuBotão_Click()
    Call VerificaSeFicheiroExiste
    End Sub




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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  JPaulo em 30/5/2012, 12:26

    Agora tudo preparado para você;


    Private Sub SeuBotão_Click()
    Dim fso
    Dim file As String
    On Error GoTo 1
    'Habilite a Referencia VBA Microsoft Scripting Runtime
    'Caminho do ficheiro a verificar se existe

    file = "c:\windows\system32\mycomput.dll"
    'Cria o objecto FileSystem
    Set fso = CreateObject("Scripting.FileSystemObject")
    'Verifica se existe, se existir abre relatorio e janela de impressão
    If fso.FileExists(file) Then
    DoCmd.OpenReport "SeuRelatorio", acViewPreview
    DoCmd.RunCommand acCmdPrint
    Else
    'Se não existir, não faz nada
    Exit Sub
    End If

    1:
    'No caso de cancelar a impressão
    If Err.Number <> 0 And Err.Number <> 2501 Then
    Exit Sub
    End If
    End Sub


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    falcato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 29/03/2012

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  falcato em 30/5/2012, 21:58

    Criei o módulo e adaptei o 1º exemplo
    Funcionou na perfeição
    Muito obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  JPaulo em 31/5/2012, 08:51

    Obrigado pelo retorno o forum agradece.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  PauloMaia em 27/5/2018, 06:26

    Por que não funciona Access 2016 ? Preciso de uma alternativa assim mas não encontro solução !


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  JPaulo em 28/5/2018, 09:24

    Ola;

    No 2016 o FileSystemObject funciona sim.
    Veja se está a dar o caminho correto do ficheiro.

    Ou cole aqui toda a sua instrução VBA, para analisarmos.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    Re: [Resolvido]Verificar se existe .DLL no windows\system

    Mensagem  PauloMaia em 29/5/2018, 05:53

    Olá, Estou a tentar Msg nº 2

    em

    C:\Windows\System32\drivers\teste.dll


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"

      Data/hora atual: 19/11/2018, 03:38