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


    [Resolvido]Converter Texto em HiperLink

    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Converter Texto em HiperLink Empty [Resolvido]Converter Texto em HiperLink

    Mensagem  vileman 6/9/2019, 16:34

    Boa tarde,

    Após busca neste fórum encontrei o seguinte tópico: 'https://www.maximoaccess.com/t26576-como-campo-texto-e-hiperlink-num-so-campo-no-relatorio-access

    que resolveu minha questão que era converter campo texto em campo hiperlink e poder abrir o arquivo a ele associado, isso no Access 2003, mas quando fui usar a mesma rotina no Access 2013, não funcionou, ou seja, ao clicar no botão para inserir o arquivo (PDF, JPG,PNG, etc) simplesmenta nada acontece, nem mesmo mensagem de erro, no modo Design ou no modo de execução.

    A rotina utilizada é a seguinte:

    Private Sub InserirArquivo_Click() 'Insere caminho do arquivo para Drive em Rede (Google Drive)
       Dim strCaminho As String, strPastaInicial As String
       strPastaInicial = "G:\Drives Compartilhados\ARGUS\ARGUS\11.ANALISE\Anexos"
       strCaminho = Buscar2(Me.hWnd, "Localizar Arquivo", strPastaInicial, _
       "(*.pdf; *.jpg; *.png; *.xls; *.gif; *.bmp)" & vbNullChar & "*.pdf; *.jpg; *.png; *.xls; *.gif; *.bmp")
       If Len(strCaminho) > 0 Then
          Me.CaminhoLink = strCaminho ‘Campo Tipo Texto
          Me.LinkArquivo = strCaminho  ‘Campo Tipo Hiperlink
       End If

    Private Sub AbreLink_Click() 'Abre arquivo convertido de Campo Texto para Campo Hiperlink
           FollowHyperlink Replace(Me!CaminhoLink, "#", "")
    End Sub

    Public Function Buscar2(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
       Dim filebox As OPENFILENAME
       Dim result As Long
       With filebox
           .lStructSize = Len(filebox)
           .hwndOwner = lngHwnd
           .hInstance = 0
           .lpstrFilter = strFiltro & vbNullChar & _
               "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
           .nMaxCustomFilter = 0
           .nFilterIndex = 1
           .lpstrFile = Space(256) & vbNullChar
           .nMaxFile = Len(.lpstrFile)
           .lpstrFileTitle = Space(256) & vbNullChar
           .nMaxFileTitle = Len(.lpstrFileTitle)
           .lpstrInitialDir = strPastaInicial & vbNullChar
           .lpstrTitle = strTítulo & vbNullChar
           .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
           .nFileOffset = 0
           .nFileExtension = 0
           .lCustData = 0
           .lpfnHook = 0
       End With

       result = GetOpenFileName(filebox)
       If result <> 0 Then
           Buscar2 = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
       Else
           Buscar2 = ""
       End If
    End Function

    Referências marcadas:
    Visual Basic For Applications
    Microsoft Access 15.0 Object Library
    OLE Automation
    Microsoft DAO 3.6 Object Library
    Microsoft Office 15.0 Object Library
    Microsoft ActiveX Data Objects 2.5 Library
    Microsoft Scripting Runtime
    Microsoft CDO for Windows 2000 Library
    Microsoft Word 15.0 Object Library

    Então pergunto: Faltaria marcar alguma Referência? ou seria outra coisa ?
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Converter Texto em HiperLink Empty Converter Texto em HiperLink

    Mensagem  vileman 9/9/2019, 12:29

    Up!

    Se alguém alguma outra rotina que funcione no Access 2013 também será bem-vinda.
    Obrigado!
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Converter Texto em HiperLink Empty Converter Texto em HiperLink

    Mensagem  vileman 12/9/2019, 02:00

    Up
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Converter Texto em HiperLink Empty Converter Texto em HiperLink

    Mensagem  vileman 13/9/2019, 12:29

    up
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Converter Texto em HiperLink Empty Converter Texto em HiperLink

    Mensagem  vileman 14/9/2019, 15:03

    Bom dia.

    Consegui resolver pelo tópico que tem a sugestão do colega Convidado:
    https://www.maximoaccess.com/t6988-resolvidogravar-local-do-arquivo-em-um-campo-no-formulario

    Ficou assim, caso alguém mais precise:

    No botão 'AbreLink'

    Private Sub AbreLink_Click()
     If Not IsNull(CaminhoLink) Then
       Application.FollowHyperlink CaminhoLink 'Nome do campo que contém o caminho do arquivo que se deseja abrir
     End If
    End Sub

    Valeu Convidado, uma ajuda quando verdadeira serve para sempre, obrigado.

    jreis_felipe81 gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Converter Texto em HiperLink Empty Re: [Resolvido]Converter Texto em HiperLink

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:48