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]Anexar ficheiros externos a registo BD Access

    Compartilhe

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 1/12/2018, 22:44

    Boas,

    É possível anexar 1 ou mais ficheiros localizados no mesmo servidor em que fica alojada a base de dados ficheiros a cada registo na BD?

    Pretendia que os utilizadores pudessem no formulário anexar ficheiros pdf previamente guardados numa pasta do servidor. A semelhança de anexar um ficheiro numa caixa de mensagem do outlook. E que esses ficheiros ficassem associados ao registo para que pudessem ser pesquisados mais tarde?

    Obrigado.

    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 1/12/2018, 22:56

    Sim, é possível.

    1- Criar um campo para receber o link para o ficheiro (Tipo Texto - 150 Tamanho ou 255). Dê-lhe o nome, por exemplo: txtCaminho

    2- Criar um botão de comando para aceder

    3- No Evento clique desse botão de comando:

     On Error Resume Next
    Dim dlgopen4F As FileDialog
    Dim strFile As String

    Set dlgopen4F = Application.FileDialog(msoFileDialogFilePicker)
    strFile = "Nenhum ficheiro seleccionado"

    With dlgopen4F
       If .Show = -1 Then
           strFile = dlgopen4F.SelectedItems(1)
           Me.txtCaminho = strFile
       End If
    End With

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 3/12/2018, 12:59

    Obrigado vieirasoft,

    Mas ou estou a fazer alguma coisa errado ou dá erro ao fazer clique conforme imagem anexa.

    Pode-me ajudar uma vez mais?

    Obrigado
    Anexos
    Erro.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (209 Kb) Baixado 2 vez(es)
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 3/12/2018, 13:43

    Olá amigo.

    1- Verifique se mudou o nome do campo c"txtCaminho" para o nome do seu campo. É que,pelo que vi na imagem o "txtCaminho" está lá. Você deu o mesmo nome ao seu campo, igual o exemplo??? Aguardo o retorno

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 3/12/2018, 14:02

    Para já estava a testar, por isso dei o nome do campo tal qual indicou conforme pode ver na imagem da tabela em anexo.
    Anexos
    Erro2.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (152 Kb) Baixado 1 vez(es)
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 3/12/2018, 14:34

    Esse campo deve estar com 255 de tamanho, conforme lhe referi na mensagem 2. Aguarde que lhe envio um exemplo daqui a pouco.

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 3/12/2018, 14:44

    Envio em anexo a BD de teste que estava a fazer para lhe ser mais facil!

    A ideia é que fique "lincado" à localização do ficheiro e não que carregue o ficheiro na própria base de dados, senão ele irá ficar gigantesca e cada vez mais dificil de utilizar.

    Obrigado
    Anexos
    Database11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 1 vez(es)
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 3/12/2018, 14:47

    Aceite as minhas humildes desculpas, pois esqueci de copiar a função. Aqui vai:

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

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 3/12/2018, 15:09

    Quando clico no botão, surge o erro no pdf anexo.

    Envio a BD para ver.

    Pass: 123
    Anexos
    Erro3.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (173 Kb) Baixado 1 vez(es)

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 3/12/2018, 15:10

    PASS: 123

    E depois para poder abir os PDF a partir do formulario? Não deveria ter um botão para o efeito? Imagine que quero visualizar mais tarde o conteudo do anexo? Como faço?
    Anexos
    Database11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 0 vez(es)
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 3/12/2018, 15:18

    Sim, claro. Pode utilizar o método hiperlink, conforme exemplo abaixo: Num botão de comando:

    Dim i As Integer
    If Nz(Len(Me.txtCaminho)) = 0 Then
    i = MsgBox("Não existe nenhum documento a visualizar!", vbCritical, "Aviso")
    Cancel = True
    Else
    Me.txtCaminho.SetFocus
    Application.FollowHyperlink (Me.txtCaminho)
    End If

    E o documento será aberto

    Quanto ao erro que diz a abrir vou ver.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 3/12/2018, 15:40

    Meu caro amigo, você tem que ter noção da nomenclatura dos nomes dos objectos. O nome da caixa de texto "txtCaminho" na tabela é só "Caminho", sem o txt adicionado.

    Já pus a funcionar, agora é só você incorporar um botão com o código que lhe enviei para abrir o documento. Bom trabalho

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

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 46
    Registrado : 19/10/2016

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo em 3/12/2018, 16:31

    Obrigado.

    Já funciona. Se calhar ainda vou ter que dar mais uns aprimoramentos, mas depois se precisar de ajuda volto a solicitar.

    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7301
    Registrado : 11/05/2010

    Re: [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  vieirasoft em 3/12/2018, 17:49

    Obrigado pelo retorno, o Fórum agradece.

      Data/hora atual: 16/12/2018, 11:23