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

    Evento ao clicar em caixa de texto

    avatar
    EduardoEGM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/02/2020

    Evento ao clicar em caixa de texto Empty Evento ao clicar em caixa de texto

    Mensagem  EduardoEGM em 16/12/2020, 23:32

    Olá, como vão?

    Minha dúvida é a seguinte:
    Eu preciso colocar em uma caixa de texto links para determinados tipos de arquivos ou pastas.
    Eu consigo normalmente com as propriedades do campo na tabela. Só que ao clicar no campo, ele retorna
    o cursor ao modo edição de texto e permite que insira o link digitando ou com o botão direito do mouse.
    Eu gostaria de ao clicar no campo com o botão normal do mouse e ele já abrisse a janela do windows explorer para procurar o arquivo ou pasta em questão quando em branco e preencher o campo com o link automaticamente para ser acessado no futuro quando necessário.
    Podem me ajudar?
    Grato pela atenção dispensada.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Evento ao clicar em caixa de texto Empty Re: Evento ao clicar em caixa de texto

    Mensagem  DamascenoJr. em 17/12/2020, 02:01

    Com a ajuda da função criada no link abaixo
    https://www.maximoaccess.com/t38582-buscar-diretorio-de-pasta-ou-arquivo-interativamente

    Foi desenvolvido este código para o evento "ao clicar" da caixa de texto.

    Código:
    Dim arrFiltro(1 To 1, 1 To 2) As String
    Dim strDir As String
        
    If (Nz(Me!NomeSuaCaixaTexto.Value) <> "") And (Dir(Nz(Me!NomeSuaCaixaTexto.Value, ""), vbArchive) <> "") Then
        Call FollowHyperlink(Me!NomeSuaCaixaTexto.Value)
    Else
        
        If Dir(Nz(Me!NomeSuaCaixaTexto.Value, ""), vbArchive) = "" Then _
            Call MsgBox("Arquivo não existe.", vbExclamation, "Link Quebrado")
            
        arrFiltro(1, 1) = "Todos"
        arrFiltro(1, 2) = "*"
            
        If fncBuscaDir(strDir, Arquivo, arrFiltro) Then Me!NomeSuaCaixaTexto.Value = strDir
            
    End If
    Anexos
    Evento ao clicar em caixa de texto AttachmentexFollowHyperlink.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 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.

    EduardoEGM gosta desta mensagem

    avatar
    EduardoEGM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/02/2020

    Evento ao clicar em caixa de texto Empty Evento ao clicar em caixa de texto

    Mensagem  EduardoEGM em 17/12/2020, 14:51

    Muito obrigado!
    Funcionou perfeitamente!
    Só vou mudar o cursor para ter a aparência de link (mãozinha) e
    testar o funcionamento em mais de uma caixa (mais ou menos 10)
    no mesmo form.

    Espero poder retribuir a atenção dispensada muito em breve.

    Grande abraço!

      Data/hora atual: 21/1/2021, 23:12