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

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado

    avatar
    Larimer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 10/08/2013

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Empty Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado

    Mensagem  Larimer 6/9/2023, 18:45

    Olá amigos!

    Estou pesquisando código VBA para aplicar a um campo tipo hyperlink em um formulário.

    A ideia é, no evento click no campo tipo hyperlink...

    - Abrir a janela de navegação de arquivos / pastas.

    - Ao selecionar um arquivo, gerar o hyperlink

    - Guardar o hyperlink gerado no campo hyperlink

    É possível? Agradeço aos amigos qualquer sugestão.

    Abraço!
    Lárimer
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3827
    Registrado : 21/04/2011

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Empty Re: Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado

    Mensagem  Marcelo David 7/9/2023, 21:19

    Olá! Sim, é possível.

    Qual a estrutura que você já tem para essa finalidade?
    A partir daí veremos a melhor forma.

    [Tópico movido para área mais apropriada]


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Marcel11

    Larimer gosta desta mensagem

    avatar
    Larimer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 10/08/2013

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Empty Estrutura p campo hyperlink

    Mensagem  Larimer 8/9/2023, 14:44

    Olá Marcelo!

    Obrigado por responder.

    Então, a estrutura é simples.
    Tenho uma tabela com o campo tipo "Hyperlink".
    Tenho um formulário para esta tabela.
    No campo "Hyperlink" no formulário a ideia é que, ao clicar, abra a janela de diretórios / pastas.
    Ao clicar sobre um arquivo, gera o link para o arquivo escolhido e armazena no campo hyperlink.

    Numa etapa seguinte, ao clicar sobre o hyperlink já armazenado no campo, possa abrir o arquivo respectivo.

    Agradeço qualquer sugestão.

    Abraço!
    Lárimer
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3827
    Registrado : 21/04/2011

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Empty Re: Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado

    Mensagem  Marcelo David 8/9/2023, 18:19

    Entendi,

    Marque a referência Microsoft Office XX.X Object Library
     
    XX.X deve ser a versão do seu office
     
    Código:
    Dim fd As FileDialog

        'Instancio o objeto FileDialog do Office
        Set fd = Application.FileDialog(msoFileDialogFilePicker)

        'Verifico se o usuário selecionou algum arquivo
        If fd.Show = -1 Then
            'Caso tenha selecionado, passo para campo o arquivo com caminho completo para o campo hiperlink
            Me.SeuCampoHiperLink = fd.SelectedItems(1)
        End If

        'Apago da memória a instancia do objeto FileDialog
        Set fd = Nothing

    O Me.SeuCampoHiperLink deve ser alterado para o nome do seu campo que receberá o endereço do arquivo.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Marcel11

    Larimer gosta desta mensagem

    avatar
    Larimer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 10/08/2013

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Empty Estrutura p campo hyperlink

    Mensagem  Larimer 8/9/2023, 22:05

    Obrigado, Marcelo!

    Estou implementando aqui, mas já vi que vai funcionar.

    Abraço!

    Lárimer
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3827
    Registrado : 21/04/2011

    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Empty Re: Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado

    Mensagem  Marcelo David 10/9/2023, 01:50

    Maravilha. Quando testar tudo, não esqueça de retornar aqui e marcar como resolvido o tópico.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado Marcel11

      Data/hora atual: 30/11/2023, 06:41