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


    Colocar anexo, tipo link

    avatar
    lukinhaxdx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 14/01/2012

    Colocar anexo, tipo link Empty Colocar anexo, tipo link

    Mensagem  lukinhaxdx 1/4/2012, 15:49

    Bom Dia Galera do FMA, procurei e não achei, e tmb não sei se estou no topico certo. então desculpas

    todos sabem como funciona os anexos no access, eu pelo menos conheço so uma forma, onde abre uma janela e vc adiciona seus arquivos lá, como se fosse um formulário de armazenamento dos anexos..

    Gostaria de saber e se for possivel, que ao invez disso, aparecesse um link, indo direto para o anexo.

    se entenderem por favor respondam agradeço...
    avatar
    Convidad
    Convidado


    Colocar anexo, tipo link Empty Re: Colocar anexo, tipo link

    Mensagem  Convidad 1/4/2012, 16:39


    Pode criar uma caixa de texto em um formulário, e digitar nela o caminho completo e o nme do arquivo.
    A caixa de texto precisa existir numa tabela (acoplada) para manter gravado o conteúdo.
    Ex.: digite na TextBox: C:\PastaDeLinks\Relatorio.pdf

    No evento AoClicar:


    Private Sub NomeCaixaTexto_Click()
    Application.FollowHyperlink Me.NomeCaixaTexto.Value
    End Sub

    avatar
    Convidad
    Convidado


    Colocar anexo, tipo link Empty Re: Colocar anexo, tipo link

    Mensagem  Convidad 1/4/2012, 20:19


    Complementando...

    Use um formulário contínuo para a TextBox, e corrija o código que postei para:


    Private Sub NomeCaixaTexto_Click()
    If Not IsNull(Me.NomeCaixaTexto) Then
    Application.FollowHyperlink Me.NomeCaixaTexto.Value
    End If
    End Sub


    Isto para evitar que, ao clicar no campo vazio para digitar, ocorra um erro por não existir ainda um caminho válido.

    Conteúdo patrocinado


    Colocar anexo, tipo link Empty Re: Colocar anexo, tipo link

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 16:09