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

    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Anexar ficheiros externos a registo BD Access Empty [Resolvido]Anexar ficheiros externos a registo BD Access

    Mensagem  afraimundo 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.

    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  afraimundo 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
    [Resolvido]Anexar ficheiros externos a registo BD Access AttachmentErro.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (209 Kb) Baixado 4 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  afraimundo 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
    [Resolvido]Anexar ficheiros externos a registo BD Access AttachmentErro2.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (152 Kb) Baixado 2 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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.
    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  afraimundo 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
    [Resolvido]Anexar ficheiros externos a registo BD Access AttachmentDatabase11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 3 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 3/12/2018, 14:47

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

    www.dropbox.com/s/3mcimzdhxm7bxff/bddialog.mdb?dl=0
    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  afraimundo 3/12/2018, 15:09

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

    Envio a BD para ver.

    Pass: 123
    Anexos
    [Resolvido]Anexar ficheiros externos a registo BD Access AttachmentErro3.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (173 Kb) Baixado 1 vez(es)
    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  afraimundo 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
    [Resolvido]Anexar ficheiros externos a registo BD Access AttachmentDatabase11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 4 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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

    www.dropbox.com/s/5uub4267zgoljgh/Database11.accdb?dl=0
    avatar
    afraimundo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  afraimundo 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.

    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 3/12/2018, 17:49

    Obrigado pelo retorno, o Fórum agradece.

      Data/hora atual: 25/7/2021, 04:37